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Preface 


This manual is one of a series designed to instruct and guide you in 
using the SPERRY UNIVAC Information Management System (IMS) 
for Operating System/3 (OS/3). It describes data definitions for use 
with the uniform inquiry update element (UNIQUE) or your action 
programs and explains how to use UNIQUE. 


This manual consists of two major topics. First, it tells you how to 
write a data definition. The data definition language is similar to 
COBOL, so it is easier to write a data definition when you already 
know COBOL. 


Before you start writing data definitions, you should have a basic 
understanding of IMS, how it operates, and what you (or the IMS 
administrator) need to do to make it operational. This information is 
in the IMS concepts and facilities manual, UP-9205 (current 
version). 


Second, it tells you how to use UNIQUE commands to access your 
defined files. This part of the manual can also be used as a training 
guide for terminal operators using UNIQUE. 

To access defined files from action programs, you also need the 
current version of the IMS action programming in RPG II user guide, 
UP-9206 or the IMS action programming in COBOL and basic 
assembly language (BAL) user guide, UP-9207. 

The information in this manual is presented in four parts: 

PART 1. OVERVIEW 


a Section 1. Introduction 


Describes the purpose of a data definition, the concepts it is 
based upon, and its relationship to UNIQUE. 


UP-9209 
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PART 2. DATA DEFINITIONS 


Section 2. Defined File Structure 
Describes the makeup and types of defined files. 
Section 3. Writing Data Definitions 


Describes data definition structure and explains how to use 
source statements. 


Section 4. Data Definition Examples 

Provides extended examples of data definitions and the defined 
files they produce. Shows how defined files are derived from 
source files, how they appear to UNIQUE and action programs, 
and the record areas required in action programs. 


Section 5. The Data Definition Processor 


Describes how to execute the data definition processor and the 
output listings you receive from the processor. 


PART 3. UNIQUE 


Section 6. Introduction to UNIQUE 


Provides a brief description of UNIQUE commands, passwords, 
and dialogs. 


Section 7. UNIQUE Commands 


Describes the UNIQUE commands and gives. extensive 
examples of their use. 


PART 4. APPENDIXES 


Appendix A. Format Presentation and Coding Rules 


Describes format and coding rules for data definitions and 
UNIQUE. 


Appendix B. Reserved Words 
Lists data definition reserved words. 
Appendix C. Data Definition Processor Diagnostics 


Lists error diagnostics issued by the data definition processor. 
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Appendix D. UNIQUE Lexicon 
Lists the language elements in the standard UNIQUE lexicon. 
Appendix E. Data Definitions for UNIQUE Examples 


Gives data definitions for the defined files used in the examples 
in Section 7. 


As one of a series, this manual is designed to guide you in 
programming and using the OS/3 information management system. 
Depending on your need, you should also refer to the current 
versions of other manuals in the series. Complete manual names, 
their ordering numbers, and a general description of their contents 
and use are as follows: 


Information management system (IMS) concepts and facilities, 
UP-9205 


Describes the basic concepts of IMS and the facilities that IMS 
offers. 


Information management system (IMS) system support 
functions user guide, UP-8364 


Describes the procedures to generate, initiate, and recover an 
online IMS system. 


Information management system (IMS) action programming in 
RPG Il user guide, UP-9206 


Describes how to write action programs in RPG Il, with 
extensive examples. 


Information management system (IMS) action programming 
in COBOL and basic assembly language (BAL) user guide, 
UP-9207 


Describes how to write action programs in COBOL and BAL, 
with extensive examples. 


Information management system (IMS) terminal users guide, 
UP-9208 


Describes terminal operating procedures, standard and master 
terminal commands, and special purpose IMS transaction 
codes. Also includes UNIQUE command formats with brief 
descriptions. The manual is in easel format for ease of use at 
the terminal. 
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= IMS/DMS interface user guide, UP-8748 


Describes how to access a data base management system 
(DMS) data base from IMS. 
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INTRODUCTION TO DATA DEFINITIONS 








1. Introduction 


1.1. CONCEPT AND PURPOSE 


This manual tells you how to write data definitions to create 
information management system (IMS) defined files and how to use 
the IMS uniform inquiry update element (UNIQUE) to access those 
defined files. 


Defined file characteristics A defined file is a logical file that 
IMS builds from records in your 
existing data files. Defined files 
exist only as descriptions in the 
named record (NAMEREC) file and 
need no additional storage. 








Defined records Defined files contain defined 
records. 
DEFINED 
31-4010) 5 18) 
UNIQUE requirements UNIQUE accesses your data through defined files. UNIQUE is an 


easy-to-use inquiry language that lets you display data and update 
your files by entering commands from the terminal. A set of IMS- 
supplied action programs processes these UNIQUE commands. 
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Action program 
requirements 
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Your COBOL, basic assembly language (BAL), and RPG II action 
programs can access defined files, but this is not a requirement. 
Action programs can also access your existing conventional files. 
To use defined files with your action programs, you should also 
read the current version of the IMS action programming in COBOL 
and basic assembly language (BAL) user guide, UP-9207, or the 
IMS action programming in RPG II user guide, UP-9206. 


1.2. CREATING DEFINED FILES 


Creating defined files 
with the data definition 
processor 


Data definition elements 


Requesting defined records 


You create a defined file by writing a data definition, using the data 
definition language (Section 3), and submitting it to an IMS utility 
program called the data definition processor (Section 5). The data 
definition processor: 


™ creates a data definition record in the NAMEREC file (see 2.3); 
and 


= = §=produces a printed description of the defined file and a 
diagnostic listing. 


DATA 
DEFINITION 
PROCESSOR 


DATA 
DEFINITION 





In the data definition, you describe the structure of the defined file 
and defined records. You also specify the allowable updating 
functions (modify, add, delete) and value ranges. 


When an action program or a terminal operator using UNIQUE 
requests a record, IMS constructs the defined record and passes it 
to the action program or UNIQUE. 
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1.3. ACCESSING DEFINED FILES THROUGH UNIQUE 


Function of UNIQUE uses information you supply in your data definition to 

UNIQUE format output screens, restrict updating, and validate entries from 
terminals. 

UNIQUE commands You can use UNIQUE commands to: 


. Display a record 

= Add, delete, or change a record 

a List all or selected portions of a file 

= ~=© Obtain statistical data about a file 

Section 7 contains descriptions and extended examples of UNIQUE 


commands. 


1.4. DEFINED RECORD MANAGEMENT 


Characteristics Defined record management (Figure 1-1) is the IMS component 
handling requests from UNIQUE and action programs for defined 
records. 


Terminal operator requests Defined record and constructs 

defined record. management decides the defined 
which records are record. 
needed 





Figure 1-1. Defined Record Management 
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Constructing defined 
records 


Validating updates 





When a terminal operator requests a defined record, defined record 
management decides which physical records or parts of them are 
needed and which files they are located in. This information comes 
from the data definition record in the NAMEREC file. Defined record 
management constructs the defined record and passes it to UNIQUE 
or the action program. 


When you try to update a file in your action program or with 
UNIQUE, defined record management checks that the changes are 
permitted and that the values are within the limits specified in your 
data definition. 




















PART 2. DATA DEFINITIONS 
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2. Defined File Structure 


2.1. DEFINED FILES 


Defined file sources Defined files are built from records in: 





CONVENTIONAL DATA MANAGEMENT A COMBINATION 
FILES SYSTEM (DMs) OF BOTH 
FILES 
Building defined files Because identifiers (3.19) are taken from keys, you can only build 


defined files from indexed files (indexed sequential access method 
(ISAM) or multiple indexed random access method (MIRAM)) or a 
database subschema. You can only use nonindexed files (direct 
access method (DAM) or MIRAM) when they are combined with 
indexed files or a subschema. 
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Defined file structure Defined files take many forms. They can: 


be identical to an existing 
indexed file; 


describe the same file 
differently; or 


combine data from more than 





2.2. DEFINED RECORDS 





Characteristics Defined records make up a defined 
file. They redefine records in your 
existing files and contain the data 
you need for an application. 





Defined record sources A defined record consists of: 
= all or part of a record from one file; 
= all or parts of several records from the same file; or 


= all or parts of several records from different files. 
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Identifiers 


Supplements 
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Defined records contain record 
identifiers, which come from 
record keys. These _ identifiers 
locate the data in your 
conventional or data base files that 
make up your defined records. See 
3.19 through 3.22 for a detailed 
explanation of defined record 
identifiers. 





Defined records can contain additional items taken from different 
fields in the same record or from other records. You need to write 
supplement definitions to include these items in a defined record. 


(See 3.30 through 3.41.) 


2.3. DATA DEFINITION RECORDS 


Contents of data 
definition record 


Creating and storing 
data definition records 


A data definition record contains a description of the defined file and 
its related subfiles (3.53). IMS uses this information to construct 
defined records requested by action programs and UNIQUE. 


The data _ definition processor 
creates a data definition record 
from the data definition you write. 
Data definition records are stored 
in the NAMEREC file. This internal 
file holds records and_ tables 
needed by IMS _ during online 
operations. 


2.4. STRUCTURE OF DEFINED FILES 


Characteristics 


A defined file containing one 
record type is a simple defined file. 
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Parent-child records 


Fraternal records 


Hierarchical record order 








A defined file containing more 
than one type of defined record 
has a hierarchical structure. 
Records in a hierarchical defined 
file have parent, child, and 
fraternal relationships. 





Figure 2-1 shows the hierarchical structure of a defined file. In 
practice, most defined files contain few types of ‘defined records; 
this example contains many for illustration. 


The parent-child relationships are: 


Parent Record Child Records 
Al B1, B2, B3 

B1 C1, C2, C3 
B3 C4, C5 

C4 D1 


Fraternal records are at the same level in the hierarchy. They have 
the same parent or no parent. 


The fraternal records are: 
Set 1: A1, A2 
Set 2: B1, B2, B3 
Set 3: C1, C2, C3 
Set 4: C4, C5 


C1, C2, and C3 are not fraternal to C4 and C5 because they have 
different parents. 


In your data definition, you must define parent, child, and fraternal 
records in a specific order. They appear in that same order in the 
defined file. A parent record is defined first, followed by each of its 
child records. Each of these child records is followed by any child 
records to which it is a parent. 
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Figure 2-1. Hierarchical Structure of a Defined File 


Examples of hierarchical Figures 2-2 and 2-3 show the order in which the defined records 

records in Figure 2-1 are defined. Figure 2-2 also shows the parent-child 
relationships in the defined file, and Figure 2-3 shows the fraternal 
relationships. 














Figure 2-2. Parent-Child Relationships in a Defined File 














Figure 2-3. Fraternal Relationships in a Defined File 
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3. Writing Data Definitions 


3.1. DATA DEFINITION LANGUAGE 


Characteristics 


Sources 


Conventions and formats 


The data definition language is used to describe the defined files 
accessed by your action programs or UNIQUE. It is similar to 
COBOL. Each data definition describes one defined file in terms of 
one or more indexed files, or a combination of indexed and 
nonindexed files. You can create many defined files through 
multiple runs of the data definition processor. 


DATA 
DEFINITION 





You can also use DMS data base subschema as a source in a data 
definition. The IMS/DMS interface user guide, UP-8748 (current 
version) describes the language for a data definition using 
subschema records. 


Appendix A gives the statement conventions and the format 
presentation and coding rules for the data definition. Appendix B 
lists reserved words you cannot use in the definition division. 


UP-9209 
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Using Katakana 
characters 








NOTE: 

In your data definition, you can use Katakana characters for: 

® Defined file and subfile names 

= Defined record names 

s /dentifier names 

= /tem names 

To use the Katakana character set, you must specify KATAKANA=YES 


in the network section of the IMS configuration. For details, see the 
IMS system support functions user guide, UP-8364 (current version). 
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3.2. DATA DEFINITION STRUCTURE 


Overall structure - Figure 3-1 shows the overall structure of the data definition. It 

three divisions contains: an identification division, a data division, and a definition 
division. 

Similarity to The identification and data divisions are similar to COBOL. While 

COBOL 


the definition division is unique to IMS, its syntax is very similar to 
COBOL. The data division describes files that the defined file is 
extracted from; the definition division describes the defined file. 


The record-description and defined-file-definition group formats are 
expanded in Figures 3-2 and 3-3. 


IDENTIFICATION 


IDENTIFICATION DIVISION. ee 
PROGRAM-ID.data-definition-name. 
[AUTHOR.comment-entry. ] 

[ INSTALLATION. comment-entry. } 
[DATE-WRITTEN.comment-entry. ] 
[DATE-COMPILED.comment-entry. ] 
[SECURITY.comment-entry. ] 
[REMARKS.comment-entry. ] 


DATA 
DIVISION 


_<I 


DEFINITION 
DIVISION 


DATA DIVISION. 
FILE SECTION. 
FD file-name-1.record-description 
[record-description]... 
[FD file-name-2.record-description 
[record-description] 


DEFINITION DIVISION. 
defined-file-definition 





Figure 3-1. Overall Format of a Data Definition 
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3.3. IDENTIFICATION DIVISION 


Required entries Begin the _ identification division with the reserved words 
IDENTIFICATION DIVISION. Next, give the PROGRAM-ID statement. 


Data-definition-name A data-definition-name follows the 
PROGRAM-ID header. This rick 
becomes the name of the program; 
it appears on the output listing 
and identifies the contents of the 
listing. It is alphanumeric, 
beginning with an_ alphabetic 
character. In the compiler listing, 
only the first six characters are 
printed out to identify the program. 
You can use more characters, but 
it is difficult to identify your 
programs when the first six 
characters are not unique. Each 
statement begins in margin A 
(column 8) of the coding form. 





Optional entries Each optional comment entry (AUTHOR, INSTALLATION, DATE- 
WRITTEN, DATE-COMPILED, SECURITY, and REMARKS) can 
contain any printable characters. When an entry exceeds a single 
line, begin additional lines in column 12 or beyond. 





Example 8 12 
IDENTIFICATION DIVISION. 
PROGRAM-ID. PAYROLL1. 
AUTHOR. JOHN SMITH. 


3.4. DATA DIVISION 


Contents The data division contains only a 
file section, which describes your 
conventional files. Although it is 
similar to COBOL, it cannot 
contain the VALUE clause. Other 
clauses are the same as_ in oWvisiOn 
COBOL. 
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Required entries Begin with the reserved words DATA DIVISION and FILE SECTION. 
DATA DIVISION, FILE SECTION, FD statements, and 01-level record 
descriptions begin in column 8. Start all other entries in column 12 
or beyond. 


FD statements FD statements describe records in conventional files that the 
defined file is extracted from. Filename-1, filename-2, etc, identify 
the conventional files and begin in column 12 or beyond. Use the 
same file names in the filename positional parameters in the 
configurator FILE section. (See the IMS system support functions 
user guide, UP-8364 (current version).) 


Record-descriptions Record-description entries describe the source records. Figure 3-2 
shows two formats, both similar to COBOL. 


Source file descriptions You can describe more than one source file, each containing 
multiple record descriptions. 


Example 8 12 
DATA DIVISION. 
FILE SECTION. 


FD EMPFILE. 
01 EMP-REC. 
92 EMP-NAME PIC X(21). 
02 EMP-NO PIC X(5). 
O92 FILLER PIC X(7). 
FD DEPFILE. 
1 DEP-REC. 
62 DEP-NAME PIC X(21). 
UNIQUE requirement NOTE: 


If you plan to use any UNIQUE statistical functions for a data item, 
define that item as numeric. 
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Format 1: 


01 data-name-1; COPY element-name 
REPLACING word-1 BY(word-2 
identifier-1 
literal-1 
,word-3 BY(word-4 
identifier-2 
literal-2 
Format 2: 


level-numberfdata-name- 2 
FILLER 


[;REDEFINES data-name-3] 
[ ;BLANK WHEN ZERO] 
JUST es 
JUSTIFIED 
ae eed 
PICTURE 
;OCCURS/integer-1 TO integer-2 TIMES 


DEPENDING ON data-name-4 
integer-2 TIMES 


ASCENDING }KEY IS data-name-5[,data-name-6]... 
DESCENDING 


[INDEXED BY index-name-1[,index-name-2]...] 


i ter aaineiate | nai 


MAP IS integer-3 CHARACTERS] 


> [SIGN Serr ———_— CHARACTER] 
TRAILING 


; [USAGE 1S](COMP 
COMPUTATIONAL 
COMP -3 
COMP -4 
COMPUTATIONAL-3 
COMPUTATIONAL -4 
DISPLAY 
INDEX 





NOTE: 


The DEPENDING ON option of the OCCURS clause is ignored by the data definition 
processor. 


Figure 3-2. Source Record Description Formats. Format 1 copies data descriptions from an existing library; format 
2 further describes the record fields given in format 1. 
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3.5. DEFINITION DIVISION 


Contents The definition division describes 
the defined file. In the definition 
division, you name a defined file 
and describe each defined record, 
item, supplement, subrecord, 
subitem, and subfile (3.53). See 
Figure 3-3. 


SE: 


DEFINITION 
DIVISION 








Figure 3-3. Descriptions of Terms Used in the Definition Division 


Begin the definition division in column 8 with the reserved words 
DEFINITION DIVISION. A description of the defined-file-definition 
follows in 3.6. 


Example 8 12 
; DEFINITION DIVISION. 
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3.6. DEFINED FILE DEFINITION 


Contents The defined file definition contains the defined record, item, 
supplement, subrecord, and subfile definitions. IMS uses them to 
construct the defined file from your conventional files. 


Only one defined Each data definition can define only a single defined file. 
file definition 


DEFINED 
FILE 
DEFINITION 





Figure 3-4 shows the consolidated format for the defined file 
Required and optional definition. Statements enclosed in solid-line boxes are required; 
entries those in  broken-line boxes are optional. You must include 
statements in the inner solid-line boxes when you include the 
statement in the outer broken-line boxes. 





Nested structure In this nested structure (boxes within boxes), the defined record and 
subfile definitions are subordinate to the defined file definition; the 
item, supplement, and subrecord definitions are subordinate to the 
defined record definition. You can use all subordinate definitions 
repeatedly within the larger definitions. 


You can define multiple defined record types in the defined file 
Defined record positions definition. The positions of the defined record types within the 
defined file match the order in which you define them. 


The boxed statements in Figure 3-4 are described in 3.7 through 
3.55. 
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DEFINED FILE defined-file-name { PASSWORD] 


DEFINED RECORD defined-record-name-1 


FROM CONTROL BREAK IN stored-record-name-2 
FROM REPEATING GROUP data-name-1 

{TvPe 1S titeral-1) 

[PARENT IS defined-record-name-2] 

{PREFIX IS titerai-2) 


POINTER IS item-name-1[,item-name-2] 
TE ae 


{i stored-record-name-1 | 


supplement-name-I 
(FILL KEY TO titeral-3] 


ALLOW/ADD OF RECORD 
DELETE 
ADD AND DELETE 


LOENTIFIER{item-name-1 FROM) data-name-1 
ITEM [item-name-2 FROM] data-name-2 













[HIDDEN} 
[MUST ADD} 
[ALLOW CHANGE] 


enn eee | lea oar va 
[Aleta oo... 2 ee ~] 


FROM stored-record-name-1 
te REPEATING GROUP Tail 
[POINTER 1S item-name-1[.item-name-2)},..} 
(FILL KEY TO titeral-1) 

ee feasts IN sail 














CONTROLLED 
NEUTRAL 





[HIDDEN] 
| (MUST ADD} 
[ALLOW CHANGE] 


| VALUE IS Yliteral-L[(THROUGH)fiteral-2][.literal-3(fTHROUGH) literal-4}]... 


7 
[ 
| 
I 
| 
| 
| 
l 
| 
i 
|| 


[ALSO[item-alias-1 FROMJitem-name-3 
(,[item-alias-2 FROMJitem-name-4].,.] 


SUBRECORD subrecord-name-1[OF subrecord-name-2) 


ALLOW/ADD OF RECORD 
DELETE 
ADD AND DELETE 


tDENTIFEER item-alias-1 FROMfitem-name-} 
item-alias-2 










ITEM [item-alias-3 FROMJ]fitem-name-2 
item-alias-4@ 






(MUST ADD} 
[ALLOW CHANGE] 


CE ga 





fee mid an RAE nee ine we ™~7 
@ | SUBFILE subfile-name-1 {PASSWORD} | 
| CONTAINS (defined-cecord name-1}{. peace ira olin | 

subrecord-name-t subrecord-name-2 


Figure 3-4. Consolidated Format of Defined File Definition 
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3.7. NAMING THE DEFINED FILE (DEFINED FILE STATEMENT) 


Function The defined file statement begins a 
defined file definition and names 
the file. It also creates a record key 
for the data definition record. 
Within the named record 
(NAMEREC) file, each defined file 
name must be unique. The format 





is: 

Format DEFINED FILE defined-file-name [PASSWORD] 

Coding rule This is the first statement in the definition division and begins in 
column 8. 

Defined-file-name The defined-file-name is one to seven characters and must differ 


from the names of any conventional files assigned to IMS. The data 
definition processor truncates names longer than seven characters, 
but it does not issue any error message. 


Passwords Passwords protect defined files by limiting access to them. With 

PASSWORD clause UNIQUE, you can use the PASSWORD clause; with action programs, 
you cannot. When you specify PASSWORD, terminal operators 
enter the defined-file-name as a password in the UNIQUE OPEN 
command (7.3) to access a defined file. 





Defining passwords You can omit PASSWORD and 

with the NAMEREC utility define a password with the 
NAMEREC file utility. This allows 
you to limit defined file access to 
specific UNIQUE terminals and use 
multiple passwords to access the 
same defined file. A password 
defined in the NAMEREC utility 
does not cancel one defined in the data definition unless the 
passwords are the same. The IMS system support functions user 
guide, UP-8364 (current version) describes password definition with 
the NAMEREC utility. 

















UP-9209 


Effect of omitting 
password 
definition 


Outside references 


Examples 
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You must define a password using either the PASSWORD clause or 
the NAMEREC utility; otherwise, terminal operators using UNIQUE 
cannot access the defined file. 


You use the defined file name to refer to the defined file in a number 
of places outside the data definition: 


m™ Keyword parameters DFILE and DDRECORD in the ACTION 
section of the configuration 


a Keyword parameters FN and DDN in the password definition 
input to the NAMEREC file utility 


= The defined-file-name parameter in action program function 
calls to defined record management 


= The defined-file-name and data-def-rec-name fields in the 
program information block for COBOL, BAL, and RPG II action 
programs 


The IMS system support functions user guide, UP-8364 (current 
version) describes IMS configuration and the NAMEREC file utility. 
Action programs are discussed in the current version of the IMS 
action programming in COBOL and BAL user guide, UP-9207 and 
the IMS action programming in RPG II user guide, UP-9206. 


8 12 





DEFINITION DIVISION. 
1. | DEFINED FILE EMPFILE PASSWORD 
2. | FILE EMPFILE PASSWORD 
3. | FILE EMPFILE 


Examples 1 and 2 perform exactly the same function. The defined 
file name is EMPFILE, which is also the password used to access the 
file through UNIQUE. PASSWORD is omitted in example 3, 
preventing file access when using UNIQUE. In this case, either the 
NAMEREC utility creates a password, or only your action programs, 
not UNIQUE, access the defined file. 
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3.8. DEFINED RECORD DEFINITION 


Function A defined record definition describes the sources and contents of 
each defined record and allowable updating functions. Write a 
separate defined record definition for each defined record type in the 
defined file. Figure 3-5 shows the format of the defined record 
definition. Underlined lowercase terms are group formats described 
in separate subsections (3.19 through 3.52). 


Format DEFINED RECORD defined-record-name-1 


stored-record-name-l 
CONTROL BREAK IN stored-record-name-2 
REPEATING GROUP data-name-1l 


IS literal-1] 
{PARENT IS defined-record-name-2] 
[PREFIX IS literal-2] 


POINTER IS item-name-1[,item-name-2]... 
FOLLOWS se me ene 
supplement-name-1l 








[FILL KEY TO literal-3} 


ALLOW ADD OF RECORD 
DELETE 
ADD AND DELETE 
item-definition [item-definition]... 
{[supplement-definition]... 
[ALSO [item-alias-1 FROM] item-name-3 
{,fitem-alias-2 FROM] item-name-4]...] 


[subrecord-definition]... 





Figure 3-5. Defined Record Definition Format 
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@ Primary part A defined record definition always 
contains a DEFINED RECORD 
statement and one or more item 
definitions. These statements 
define the primary part of the a 
defined record. The source of this | PRIMARY 
part is always an indexed file or a cone 
data base subschema. The 
DEFINED RECORD statement is 
described in 3.9 through 3.18 and 
the item definition in 3.19 through 
3.29. 


Supplements When the defined record contains 
additional items from the same or 
another source record, the defined 
record has a primary part and one 
or more supplements. You define 
the source and contents of each PRIMARY 
supplement in a_ supplement : PART 
definition. The supplement 
definition is described in 3.30 
through 3.42. 


SUPPLEMENTS 


Subrecords When you want to describe a 
variation of the defined record, you 
include a subrecord definition. A 
subrecord contains the same data 
as in the defined record, but the 
data may be in a different order or 
the allowable updating functions 
may vary. The subrecord definition 
is described in 3.43 through 3.52. 


Subfiles When you want to describe a 
variation of the defined file, you 
include a_ subfile definition. A 
subfile definition describes a 
subset of a defined file and is used 
to access subrecords. It can differ 
from the defined file in the number 
and makeup of the defined record 
types it contains. The subfile 
definition is described in 3.53 
through 3.55. 
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Table 3-1 summarizes the sections of the data definition and their @ 
usages. 


Table 3-1. Data Definition Sections and Their Usages 


Your defined record to include additional items from the same or 
another source record. 


PRIMARY 
PART 


SUPPLEMENTS 


To describe a variation of your defined record. 





To describe a variation of your defined file. 





3.9. DESCRIBING A DEFINED RECORD’S PRIMARY PART 
(DEFINED RECORD STATEMENT) 


Function The DEFINED RECORD statement 
describes: 


= =the source of the primary part 
of the defined record; 


=» the defined record's 
relationship to other records 
in the defined file; and 





= whether terminal operators 
using UNIQUE or action 
programs may add or delete 
occurrences of this record. 
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3.10. NAMING THE DEFINED RECORD (DEFINED RECORD CLAUSE) 


Function The DEFINED RECORD clause 
begins a defined record definition 
Coding rule and names the defined record. Put 





it directly after the DEFINED FILE 
statement or another defined 
record definition. Starting in 
column 8, the format is: 


Format DEFINED RECORD defined-record-name-l 


Defined-record-name-1 Defined-record-name-1 is a 1- to 30-character name, unique within 
the data definition, identifying the defined record. 


Examples 8 12 
1. DEFINED FILE PAYROLL 
DEFINED RECORD EMPLOYEE 
2. | DEFINED FILE PAYROLL 
RECORD EMPLOYEE 
3. |DEFINED FILE PAYROLL 
DEFINED RECORD EMPLOYEE 





DEFINED RECORD DEPENDENTS 


DEFINED RECORD PAYDATA 


Examples 1 and 2 are the same; 
DEFINED is not required. 
EMPLOYEE is a defined record in 
defined file PAYROLL. In example 
3, defined file PAYROLL contains 
three defined records: EMPLOYEE, 
DEPENDENTS, and PAYDATA. 
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3.11. IDENTIFYING THE SOURCE OF THE PRIMARY PART (FROM CLAUSE) 


Function The FROM clause specifies the source of the primary part of the 
defined record. Place it directly after the DEFINED RECORD clause. 
Three formats The FROM clause has three formats. Figure 3-6 shows the use of 


these formats. 





SOURCE IS ONE RECORD 





Figure 3-6. Describing the Defined Record’s Source Using FROM Clause Format 


Specifying One Record as the Source 
Use the format 


Format FROM stored-record-name-1 


Purpose when the source of the primary 
part of the defined record is one 
record. This source record must be 
in an indexed file. The defined 
record’s primary part contains the 
record identifier (derived from the 
record key) and any items in the 
same record. 
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Stored-record-name-1 


Example 


Format 


Purpose 


How control breaks work 
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Stored-record-name-1 refers to an 01-level record description in the 
data division (3.4). The name must be unique. This defined record’s 
primary part can include a data item from this source record when: 


= ~= the data item meets length and usage constraints (3.24); and 


= = ~=6within stored-record-name-1, the data item precedes any item 
defined with an OCCURS clause (see Figure 3-2). 


8 12 
DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 


In this example, the primary part of defined record EMPLOYEE 
comes from record EMPLOYEE-REC. EMPLOYEE-REC is an 01-level 
record description. 


Specifying a Sequence of Records as the Source 


Use the format 


FROM CONTROL BREAK IN stored-record-name-2 


when: 


=™ you have parent and child 
defined records; and 


s the primary part of the parent 
defined record comes from a 
sequence of records with the 
same leftmost values in their 
record keys. 





The parent defined record's primary part contains only an identifier. 
Other items are contained in subordinate (child) defined records, 
which name the same source record (stored-record-name-2). As 
indexed records are read sequentially, each value change in the left- 
hand character positions of the identifier record key produces a new 
occurrence of the current defined record. 
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Uses 


Stored-record-name-2 


Examples 





Use this format to access a specific portion of a defined file with, for 
example, the FOR parameter of a UNIQUE LIST or DETAIL command. 
It also enables UNIQUE statistical functions to provide subtotals for 
child defined record subsets associated with control breaks. 


Stored-record-name-2 is an 01-level record description in the data 
division (3.4). The name must be unique. 


8 12 





1. | DEFINED RECORD EMPLOYEE 
FROM CONTROL BREAK IN EMPLOYEE-LOC-REC 
2. | RECORD EMPLOYEE FROM BREAK EMPLOYEE-LOC-REC 


Example 1 uses the long form of the DEFINED RECORD and FROM 
CONTROL BREAK statements; example 2 uses the short form. Both 
perform the same function. Defined record EMPLOYEE receives only 
an identifier from logical record EMPLOYEE-REC, which is an 01- 
level record description. 


Figure 3-7 shows a sample data definition for defined file PAYROLL, 
the UNIQUE commands used to access it, and the resulting display. 
IDENTIFIER and ITEM statements are discussed in 3.20 through 
3.28. 


NOTE: 


In the screen displays in this manual, the entries you make are 
shown In lowercase and reverse print. 
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8 12 
IDENTIFICATION DIVISION. 
PROGRAM-ID. CTRL-BREAK. 
DATA DIVISION. 
FILE SECTION. 
FD EMPFILE. 
@1 EMPLOYEE-LOC-REC. 
62 EMPL-LOC PIC X(6). 
62 EMPL-NAME PIC X(21). 
62 EMPL-SALARY PIC 9(5)V99 USAGE COMP-3. 
DEFINITION DIVISION. 
DEFINED FILE PAYROLL 
DEFINED RECORD EMPLOYEE 
FROM CONTROL BREAK IN EMPLOYEE-LOC-REC Key is EMPL-LOC 
IDENTIFIER LOC FROM EMPL-LOC 
DEFINED RECORD PAYDATA 
FROM EMPLOYEE-LOC-REC 
PARENT IS EMPLOYEE 
IDENTIFIER EMPL FROM EMPL-NAME 
ITEM SALARY FROM EMPL-SALARY 


Key is EMPL-LOC and 
EMPL-NAME 





a. Data definition 


open payroll 
list salary for ohio total salary 


OUTPUT 


OHIO 

“ - EMPL SALARY 
- ADAMS ,BEN 381.998 
-CONNERS LAURA 298.68 
-LANE,DIANE 225.08 
-MILES, ROBERT 194.90 
-STEVENS MICHAEL 326.80 

TOTAL SALARY=1,416.986 





b. UNIQUE display 


Figure 3-7. Example Data Definition and UNIQUE Display Using FROM CONTROL BREAK. Defined record 
PAYDATA names EMPLOYEE as its parent and EMPLOYEE-REC as its source. With FROM CONTROL 
BREAK, you can restrict the listing to employee names and salaries for the Ohio office. 
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Format 


Purpose 


Data-name-1 


Restrictions on 
adding records 


Example 


Specifying a Repeating Group as the Source 
Use the format 


FROM REPEATING GROUP data-name-1 


when the source of the primary 
part of the defined record is a 
group item. This group item is 
described in the data division with 
an OCCURS clause. 





Data-name-1 is a data name defined in the data division with both 
OCCURS and KEY clauses. (See Figure 3-2.) It must be unique or 
fully qualified. Include any data-name-1 item in the primary part of 
this defined record when: 


= ~~ the item meets length and usage constraints (3.24); and 


= within data-name-1, it precedes any item (other than data- 
name-1 itself) defined with an OCCURS clause. 


Do not use this format when you want to add records with a 
UNIQUE ADD command, INSERT function, or ADD specification in 
an action program. Adding a record produces binary zeros as the 
value of data-name-1, so it cannot contain a unique key. 


8 12 
DATA DIVISION. 
FILE SECTION. 


FD EMPFILE. 
@1 EMPLOYEE-REC. 
02 EMPLOYEE PIC X(21). 


82 DEPENDENT-REC OCCURS 5 TIMES 
ASCENDING KEY IS DEP-NAME. 
03 DEP-NAME PIC X(21). 
DEFINITION DIVISION. 
DEFINED FILE PAYROLL PASSWORD 
RECORD EMPLOYEES FROM EMPLOYEE-REC 


RECORD DEPENDENTS FROM GROUP DEPENDENT-REC 


In this example, repeating group item DEPENDENT-REC (an 02-level 
entry in logical record EMPLOYEE-REC) supplies the primary part of 
defined record DEPENDENTS. DEPENDENT-REC must appear in the 
data division file section with both OCCURS and KEY clauses. 
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3.12. DEFINING THE RECORD TYPE (TYPE CLAUSE) 


Use the TYPE clause only with your 

Purpose action programs, not UNIQUE. With 
this clause, you can specify the 
record type you want delivered 
with a SETL and sequential GET 
function. The detailed status code 
field in the program information 
block (PIB) gives the type indicator. 
Use this statement only when a 
given defined file accessed by your action programs contains more 
than one record type. 





Controlling record delivery You can control the way the TYPE clause is used. Depending on the 
settings of the PREDICTED (byte 1 of the detailed status code) and 
DELIVERED (byte 2 of the detailed status code) indicators in the 
program information block, the record is: 


a retrieved and then checked for the TYPE; or 


a checked for the TYPE and then retrieved. 


& The format is: 


Format TYPE 1S literal-1 


Literal-1 Literal-1 is the actual value associated with the record type 
delivered in the program information block’s detailed status code 
field. (See the current version of the IMS action programming in 
RPG Wi user guide, UP-9206 or the IMS action programming in 
COBOL and basic assembly language (BAL) user guide, UP-9207 for 
details.) Use one alphanumeric character and assign a unique 
character identification to each defined record type. 


Example 8 12 
DEFINED RECORD EMPLOYEE-SALARY FROM EMPLOYEE-REC 
TYPE 1S ‘A’ 
DEFINED RECORD EMPLOYEE-HISTORY FROM DEPT-REC 
TYPE IS ‘B’ 


In this example, the TYPE clause indicates that a SETL and 
sequential GET function delivers an ‘A’ record type for record 
EMPLOYEE-SALARY. Record EMPLOYEE-HISTORY, located in the 
same defined file, is a ‘B’ record type. 
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3.13. IDENTIFYING THE PARENT OF A CHILD DEFINED RECORD 
(PARENT CLAUSE) 


Purpose 


Format 


Defined-record-name-2 


Hierarchical relationships 


Fraternal records 


Example 


With the PARENT clause, you set 
up the hierarchical relationship 
between defined records within 
the defined file. 





The format is: 


PARENT IS defined-record-name-2 


Defined-record-name-2 is: 


= a record defined in the immediately preceding defined record 
definition; or 


® adirect ancestor of the immediately preceding defined record. 


Every defined record definition but those at the highest level in the 
hierarchy must contain a PARENT statement. The first defined 
record definition is at the highest level in the hierarchy; it does not 
have a parent record. When a subsequent defined record definition 
has no PARENT statement, it is also considered to be at the highest 
hierarchical level. 


All record types having no parents are fraternal, as are defined 
records naming the same parent. (See 2.4.) 


8 12 
RECORD EMPLOYEE FROM EMPLOYEE-REC 


RECORD PAYDATA FROM PAYDATA-REC 
PARENT IS EMPLOYEE. 


In this example, the previously defined record EMPLOYEE is the 
parent of child record PAYDATA. 
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Using the PARENT clause YOU Can name a defined record as the parent of another defined 
record only when, in the source records: 


Repeating group item = the source (WKLY-PAY in Figure 3-8) of the child record 

as child’s source (PAYDATA) is a repeating group item within the group that is 
the source (EMPLOYEE-REC) of the parent record (EMPLOYEE) 
or one of the parent’s supplements; 


Two record types as # the source (EMPLOYEE-REC in Figure 3-9) of the parent record 

source of parent and child (EMPLOYEE) or one of the parent’s supplements and source 
(PAY-REC) of the child (PAYDATA) are two distinct record types 
(01-level entries) in the same indexed file (EMPFILE); 


Control break as source = the source (EMPLOYEE-LOC-REC in Figure 3-10) of the parent 
record (EMPLOYEE) is a control break detected while reading 
the source of the child (PAYDATA); or 


Different indexed files = the source (PAYDATA-REC in Figure 3-11) of the child record 

as source (PAYDATA) is a sequence of records in a different indexed file 
than the source (EMPLOYEE-REC) of the parent (EMPLOYEE) or 
any of its supplements; a POINTER clause (3.15) is then used in 
the child record’s defined record definition. 


12 
EMP-RG. 
EMPLOYEE-REC. 
62 EMP-NM X(21). 
62 JOB-NR X(5). 
62 WKLY-PAY 
OCCURS ® TO 5 TIMES 
DEPENDING ON COUNT 
ASCENDING KEY IS SALARY. 
83 SALARY PIC 9(5)V99. 
83 YTD-EARN PIC 9(5)V¥99 USAGE COMP-3. 
DEFINITION DIVISION. 
DEFINED FILE PAYROLL 
DEFINED RECORD EMPLOYEE 
FROM EMPLOYEE -REC 
DEFINED RECORD PAYDATA 
FROM REPEATING GROUP WKLY-PAY 
PARENT iS EMPLOYEE 





Figure 3-8. Sample Data Definition Using Repeating Group as Source of Child Record 
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12 
EMPFILE. 
EMPLOYEE-REC. 
02 EMP-NM PIC X(21) 
82 JOB-NR PIC X(5). 
PAY-REC. 
62 EMP-NM PiC X(21). 
62 SALARY PIC 9(5)V99. 
DEFINITION DIVISION. 
DEFINED FILE PAYROLL 
DEFINED RECORD EMPLOYEE 
FROM EMPLOYEE-REC 
DEFINED RECORD PAYDATA 
FROM PAY-REC 
PARENT IS EMPLOYEE 





Figure 3-9. Sample Data Definition Using Two Record Types as Sources of Parent and 
Child Records 





12 

















FO EMPFILE. 

@1 EMPLOYEE-LOC-REC. 
82 EMPL-NAME Pic X(21). 
82 EMPL-LOC PIC X(6). 
02 EMPL-SALARY PIC 9(5)V99. 


DEFINITION DIVISION. 
DEFINED FILE PAYROLL 
DEFINED RECORD EMPLOYEE 

FROM CONTROL BREAK IN EMPLOYEE-LOC-REC 
DEFINED RECORD PAYDATA 
FROM EMPLOYEE-LOC-REC 
PARENT IS EMPLOYEE 





Figure 3-10. Sample Data Definition Using Control Break as Source of Parent Record 
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12 
EMPFILE. 
EMPLOYEE-REC. 
02 EMPL-NAME PIC X(21). 
82 EMP-NR PIC X(5). 
PAYFILE. 
PAYDATA-REC. 
82 EMP-NUMBER PIC X(5). 
82 SALARY-AMT PIC 9(5)V¥99. 
DEFINITION DIVISION. 
DEFINED FILE PAYROLL 
DEFINED RECORD EMPLOYEE 
FROM EMPLOYEE-REC 
IDENTIFIER EMPL-NAME 
1TEM EMP-NR 
DEFINED RECORD PAYDATA 
FROM PAYDATA-REC 
PARENT IS EMPLOYEE 
POINTER IS EMP-NR 





Figure 3-11. Sample Data Definition Using Records in Different Indexed Files as 
Sources of Parent and Child Records 


3.14. DESIGNATING THE PROCESSING ORDER OF FRATERNAL RECORDS 
(PREFIX CLAUSE) 


Function With the PREFIX clause (Figure 3-12), identifier values of fraternal 
records reflect the order the fraternal records are processed in. It 
adds to the defined record identifier a character (or characters) not 
present in any physical record. 

The format is: 


Format PREFIX IS literal-2 


Literal-2 Literal-2 is a constant enclosed by single quotes and added to the 
identifier of a fraternal-type record. 
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Required uses 


Defining successive 
records 





Figure 3-12. PREFIX Clause. The prefix defined in this clause appears in the defined 
record identifier as shown in the action program or on a terminal screen. It is 
not part of the physical record's identifier. 


Include the PREFIX clause, the VALUE clause (3.28), or both, for 
each defined record that is fraternal to another defined record. You 
must use the PREFIX clause when value ranges for identifiers of 
fraternal record types overlap. This occurs when records have 
sources in different files or in different repeating group items. 


Give the same length prefix values for fraternal record types and put 
them in ascending order as you define successive records. The 
prefix you define appears in the identifier of each defined record 
occurrence. It comes directly before the identifier item in the defined 
record's first item definition. (See 3.19.) 
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8 12 
DEFINITION DIVISION. 
DEFINED FILE PAYROLL PASSWORD 
DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 
DEFINED RECORD DEPENDENTS FROM DEPENDENT -REC 
PARENT |S EMPLOYEE 
PREFIX IS ‘A’ 
IDENTIFIER EMP-NO 
DEFINED RECORD PAYDATA FROM PAY-REC 
PARENT IS EMPLOYEE 
PREFIX IS ‘B’ 
IDENTIFIER EMP-NO 


Defined file PAYROLL contains three types of records: EMPLOYEE, 
DEPENDENTS, and PAYDATA. EMPLOYEE is the parent of both 
DEPENDENTS and PAYDATA, which are fraternal records. 
Sequential processing of the file delivers all DEPENDENTS records 
for parent record EMPLOYEE before any PAYDATA records. Prefix 
‘A’ for DEPENDENTS alphabetically comes before prefix ‘B’ for 
PAYDATA records; DEPENDENTS records come before PAYDATA 
records in the defined file. Thus, these prefixes support the 
requirement for having defined record identifiers in ascending order. 


3.15. LOCATING THE SOURCE OF A CHILD DEFINED RECORD 


Purpose 


(POINTER CLAUSE) 


In the defined record definition, you use the POINTER clause (Figure 
3-13) only for a child defined record. It locates the source of that 
defined record. Use it when: 


= there is a PARENT clause for a defined record; and 
m §=there is a break between the keys of the child’s source and the 


parent’s source (the records are in different files or in different 
locations within the same file). 





Figure 3-13. POINTER Clause 
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Format 


ltem-name 
How pointers work 


Example 


Its format is: 


POINTER IS item-name-1 [,item-name-2] 


Item-name is a term defined in a direct ancestor of this defined 
record. (Item-names are defined in 3.21 and 3.24.) To retrieve the 
child defined record’s primary part, IMS links the values of item- 
name-1, item-name-2,... in a character string. Then: 


= ~=when the source is an indexed record, characters to the left of 
the child record’s identifier make up the string; or 


= when the source is a repeating group item, the string’s leftmost 
characters locate the record occurrence containing the source. 
When a repeating group item is nested within a larger group 
item, extra characters are used in the pointer to locate the 
larger group item by its key. 


8 12 
FD EMPFILE. 
O@1 EMPLOYEE-REC. 
62 EMP-NM PIC X(21). 
02 EMP-NR PIC X(5). 
FD PAYFILE. 
O1 PAY-REC. 
62 EMP-NUMBER PIC X(5). 
82 JOB-NUMBER PIC X(4). 
O62 SALARY-AMT PIC 9(5)V99. 


DEFINITION DIVISION. 
DEFINED FILE PAYROLL PASSWORD 
DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 
IDENTIFIER EMP-NM Key is EMP-NM 
ITEM EMP-NR HIDDEN 
DEFINED RECORD PAYDATA FROM PAY-REC 
PARENT IS EMPLOYEE Key is 
POINTER IS EMP-NR JOB-NUMBER 
IDENTIFIER JOB-NUMBER 
ITEM SALARY-AMT 


EMPLOYEE is the parent record of PAYDATA. The source of the 
primary part of EMPLOYEE is in EMPFILE; the source of PAYDATA is 
in a different indexed file, PAYFILE, ordered by EMP-NUMBER and 
JOB-NUMBER. The item EMP-NR, already defined in EMPLOYEE, 
contains the employee number pointing to the pay record needed for 
each employee. See 3.21 through 3.24 for an explanation of 
IDENTIFIER and ITEM clauses. 
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® 3.16. LOCATING THE SOURCE OF A DEFINED RECORD 
(FOLLOWS CLAUSE) 


Function While the POINTER clause connects defined records with sources in 
different locations, the FOLLOWS clause connects defined records 
whose sources are two record types that are next to each other in 
the same indexed file. Use the FOLLOWS clause when the source of 
this defined record: 


= sequentially follows the source of a previous primary part or 
supplement in this file; but 


= there is an intervening defined record or supplement, even if its 
source is the same record type as the source this record 


follows. 
Restrictions Never use this clause in the first 
on use defined record definition for a 


defined file or when the defined 
record’s source iS a_ repeating 
group item. 





The format is: 


Format FOLLOWS f{defined-record-name-3 
supplement-name-1l 


The source of the current defined record's primary part sequentially 
follows: 


Defined-record-name-3 = the source of a previous defined record when you use defined- 
record-name-3; or 


Supplement-name-1 Lt the source of a previous supplement when you use 
supplement-name-1. 
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8 49 
FD EMPFILE. 
01 NAME-EMP. 
62 EMPL-NAME PIC X(21). 
02 CONST-SPACE PIC X(2). 
02 NO-DEPS PIC 9(2). 
62 SUPV-NAME PIC X(21). 
62 TEL-EXT PIC 9(4). 
01 NAME-DEP. 
82 €MPL-NAME PIC X(21). 
§2 DEP-NO PIC 9(2). 
02 DEP-NAME PIC X(21). 
82 YR-BIRTH PIC 9(4). 


DEFINITION DIVISION. 
DEFINED FILE EMPLOYEE PASSWORD 
DEFINED RECORD EMP-NAME FROM NAME-EMP 
IDENTIFIER EMPL-NAME 
ITEM CONST-SPACE 
ITEM NO-DEPS 
ITEM SUPV-NAME 
SUPPLEMENT SUP-NAME FROM NAME - EMP 
POINTER 1S SUPV-NAME 
ITEM TEL-EXT 
DEFINED RECORD DEP-NAME FROM NAME-DEP 
PARENT 1S EMP-NAME 
FOLLOWS EMP-NAME Key is EMPL-NAME 
IDENTIFIER DEP-NO DEP-NO, and DEP-NAME 
IDENTIFIER DEP-NAME 
ITEM YR-BIRTH 


Key is EMPL-NAME 


A personnel application has an indexed file (EMPFILE) containing 
two types of records: employee (NAME-EMP) and dependent 
(NAME-DEP). In the source file, an employee record is followed by 
corresponding dependent records. In the defined file (EMPLOYEE), 
an employee record (for example, ADAMS,BEN) is first followed by a 
supervisor supplement (VAUGHN,ART), then by dependent records 
(ADAMS,BONNIE). In the data definition, defined record EMP-NAME 
names NAME-EMP as its source. Supplement SUP-NAME also 
names NAME-EMP as its source. Finally, defined record DEP-NAME, 
defined after SUP-NAME, names NAME-DEP as its source. The 
FOLLOWS clause tells IMS to read dependent records that follow 
EMP-NAME (ADAMS,BEN), not SUP-NAME (VAUGHN,ART). See 
3.21 and 3.30 for explanations of item and supplement definitions. 
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@ 3.17. ACCESSING RECORDS ACCORDING TO TYPE 
(FILL KEY CLAUSE) 


Purpose Indexed records of several types 
can be interspersed in the source 
file. The FILL KEY clause allows 
you to access only those records of 
a specific type in that file. FILL KEY 
uses the rightmost characters of an 
indexed record key to make the key 
for each record type unique. 





The format is: 


Format FILL KEY TO fiteral-3 


Literal-3 Literal-3 is the rightmost character or characters of an indexed file’s 
key. Enclose it in single quotes. It can be any character or characters 
consistent with the PICTURE clause (see Figure 3-2) specified for 
that identifier. 


Using the FILL KEY You only need this clause when: 
clause 
= the indexed file record key is longer than the combined length 
of any POINTER and IDENTIFIER items; and 


= the remaining characters in the key are not all spaces 
(hexadecimal 40). 


How FILL KEYs work Literal-3 can be no longer than the part of the key not specified by 
POINTER or IDENTIFIER items. When creating a search key, IMS fills 
the remaining character positions with spaces and moves literal-3 
into the record key’s rightmost character positions. 
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8 12 
FD EMPFILE. 
O@1 EMPLOYEE-REC. 
62 EMP-NR PIC X(5). 


@1 ODEPENDENT-REC. 
62 EMP-NO PIC X(5). 


DEFINITION DIVISION. 

DEFINED FILE PAYROLL PASSWORD 

DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 
FILL KEY TO ‘1’ 
IDENTIFIER EMP-NR 


DEFINED RECORD DEPENDENTS FROM DEPENDENT -REC 
IDENTIFIER EMP-NO 


Assume EMPLOYEE-REC and DEPENDENT-REC are two types of 
records in an indexed file (EMPFILE). EMPFILE is the source of 
defined records EMPLOYEE and DEPENDENTS. Both EMPLOYEE 
and DEPENDENTS have record keys in the same character positions, 
1 through 5. The values of these keys differ only in character 
position 5. The key to EMPLOYEE-REC is 87651; the key to 
DEPENDENT-REC is 87652. By defining record EMPLOYEE with the 
FILL KEY TO ‘1’ clause, you can access EMPLOYEE-REC records by 
specifying a key of 8765. IDENTIFIER clauses are described in 3.21. 




















UP-9209 


SPERRY UNIVAC OS/3 3-33 
IMS DATA DEFINITION AND UNIQUE 





DEFINED RECORD DEFINITION 





3.18. ALLOWING RECORD ADDITIONS AND DELETIONS 
(ALLOW ADD AND DELETE CLAUSE) 


Purpose 


Format 


Parameters 


Adding and deleting 
records 


Example 


The ALLOW ADD AND DELETE 
clause permits terminal operators 
using UNIQUE or your action 
programs to add or delete defined 
record occurrences. 





The clause is invalid when you use: 


=» the FROM CONTROL BREAK or FROM REPEATING GROUP 
format of the FROM clause for a defined record; or 


= the FROM REPEATING GROUP format of the FROM clause for 
any of its supplements. 


The format is: 


ALLOW (ADD OF RECORD. 
DELETE 
ADD AND DELETE 
Allows only additions. 
DELETE — 
Allows only deletions. 
ADD AND DELETE ry) 
oe 


Allows additions and deletions. 


Without any of these statements in a record definition, you cannot 
add or delete occurrences of that defined record. For example, when 
you do not include ALLOW ADD, ALLOW DELETE, or ALLOW ADD 
AND DELETE in the record definition, IMS rejects as invalid: 


= any input of the UNIQUE ADD or DELETE commands; or 
= any add or delete function issued by an action program. 
8 12 

DEFINED FILE PAYROLL 

DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 


ALLOW ADD AND DELETE 


This allows you to add or delete defined record EMPLOYEE in 
defined file PAYROLL. 





UP-9209 SPERRY UNIVAC OS/3 3-34 
IMS DATA DEFINITION AND UNIQUE 





ITEM DEFINITION 














3.19. ITEM DEFINITION 


Function A defined record consists of an 
identifier and other items taken 
from the same record and other 
records. Item definitions describe 
these items. IDENTIFIER 
statements (3.20 through 3.22) 
name identifier items; ITEM 
statements (3.23 through 3.28) 
name other items in the defined 
record. Figure 3-14 shows the item 
definition format. 








Format 
IDENTIFIER [item-name-1 FROM] data-name-1 
ia [item-name-2 FROM) en 
[HIDDEN] 
[MUST ADD] 
[ALLOW CHANGE ] 
VALUE IS joni: THROUGH) literal-2 
VALUES ARE tar 
,literal-3 [THROUGH paca site 
tt 
ALSO [item-alias-1 FROM] item-name-3 
: {,[item-alias-2 FROM] item-name-4]... 
Figure 3-14. Item Definition Format 
Rule You must write a separate item definition for each identifier and 


item name in the defined record. Each defined record can have up to 
78 IDENTIFIER and ITEM statements. 


UNIQUE column headers When using UNIQUE, carefully consider the size and meaning of 
item names, because they are displayed as column headers in all 
UNIQUE command response output. Also, keep in mind that UNIQUE 
uses one extra space for signed number items, and another extra 
space for tab stop control characters. In the terminal display, 


UNIQUE inserts two spaces between column headers or data items, 
whichever are longer. 
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& Identifier items Defined record identifiers locate the data in your source files. 
Identifiers can come from any field that is part of the record key. 
Because they are derived from key fields, identifier items can only 
come from records in: 


a indexed files; or 
a a data base subschema. 


Data definitions using a subschema as source are discussed in the 
IMS/DMS interface user guide, UP-8748 (current version). 


Simple defined files Figure 3-15 shows how a defined record identifier is derived from 
one record in a simple defined file. It also shows how other items in 
the defined record are derived from fields in the same source record. 
Figure 3-16 shows a terminal display of item names as column 
headers plus data from the defined record. 


no | 


SALARY 
YTO-EARNINGS 








Figure 3-15. Defined Record Identifier in a Simple Defined File 


2 SPACES 





“ EMPL-NR  EMPL-NAME SALARY YTD-EARN 


69155 HUNTER, SHARON 205.08 5,877.88 


Figure 3-16. Terminal Display of Column Headers and Data Items in a 
Simple Defined File 
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Simple vs. 
hierarchical 
defined files 


Parent-child identifiers 


Hierarchical defined files 





While a simple defined file contains only one type of defined record, 
a hierarchical defined file contains two or more types of defined 
records that have a parent-child relationship (2.4). 


The entire parent record identifier is carried down to the beginning 
of its child’s record identifier. Remaining items in child identifiers 
distinguish between child records. These unique portions of child 
identifiers may come from different files than parent identifiers. 


Figure 3-17 compares parent and child record identifiers in a 
hierarchical defined file. It also shows how their identifiers are 
derived from records in two different indexed files. Figure 3-18 
shows the terminal display of parent-child defined record identifiers. 
For more examples of parent-child records, see 4.2. 


YTO-EARNINGS f 





Figure 3-17. Parent-Child Defined Record Identifiers 
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display 5896 


DEPT-NR EMPL-NAME 
5896 HUNTER, SHARON 





a. Parent record displayed 


display 5896,680155 


EMPL-NR SALARY YTD-EARN 
5696,68155 205.68 5,877.08 





b. Child record displayed 


Figure 3-18. Terminal Displays of Column Headers and Data Items for Parent and 
Child Records 


3.20. DEFINING AN IDENTIFIER (IDENTIFIER STATEMENT) 


Figure 3-19 shows the format for an IDENTIFIER statement. 


Format 
IDENTIFIER [item-name-1 FROM] data-name-1l 


VALUE I$ literal-l{/fTHROUGH)Titeral-2 
VALUES ARE THRU 


,titeral-3/{THROUGH)literal-4 
THRU 





Figure 3-19. IDENTIFIER Statement Format 
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3.21. NAMING THE IDENTIFIER (IDENTIFIER CLAUSE) 


Function 


Format 


ltem-name-1 


Data-name-1 


Example 


Multiple identifiers 


The IDENTIFIER clause begins an 
IDENTIFIER statement and names 
the defined record identifier item. 
You must specify identifier items 


before any other defined record 
items. The format is: 096 HUNTER, SHARON 





IDENTIFIER [item-name-1 FROM] data-name-1 


Item-name-1 is a 1- to 30-alphanumeric character name, unique 
within the defined file definition. UNIQUE uses it as a terminal 
column header. You can omit item-name-1 when it is identical to 
data-name-1. 


Data-name-1 is a data division data name that is part of the source 
of this defined record's primary part. When the source is: 


= =A record described with the FROM or FROM CONTROL BREAK 
format of the FROM clause, data-name-1 must be part of that 
record’s key. 


s A repeating group item, described with the FROM REPEATING 
GROUP format of the FROM clause, data-name-1 must be part 
of that group item’s key. 


8 12 

FD EMPFILE. 

O61 EMPLOYEE-REC. 
62 DEPT-NR PIC X(4). 
@2 EMPL-NAME PIC X(21). 
62 EMPL-NR PIC X(5). 


DEFINITION DIVISION. 
DEFINED FILE PAYROLL 
DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 


IDENTIFIER DEPT-NR Key is DEPT-NR 
IDENTIFIER EMP-NM FROM EMPL-NAME and EMPL-NAME 
ITEM EMPL-NR 


When you use more than one IDENTIFIER clause, define items in 
major-to-minor order. In this example, DEPT-NR is the major 
identifier; EMP-NM is the minor identifier. The value of the record 
key in this defined record’s source record is: 


SBIGHUNTER, SHARONAAAAAAAA 














UP-9209 SPERRY UNIVAC 0S/3 3-39 
IMS DATA DEFINITION AND UNIQUE 








ITEM DEFINITION 








Identifier The sequence of items defined by the IDENTIFIER clause appears at 
segments the terminal as a string of identifier segments separated by commas: 


5896,HUNTER, SHARON 


UNIQUE When you use multiple IDENTIFIER clauses, UNIQUE identifies the 
ae of entire identifier string by the item name in the final IDENTIFIER 
se clause. For example, if you specify both identifier items DEPT-NR 
and EMP-NM, both identifier names appear as terminal headers for 
the string. If you specify the minor identifier only, the terminal 
operator sees: 
w the minor identifier and its header for the DISPLAY command; 
and 
= =the minor identifier and both the major and minor identifiers’ 
headers for the LIST command. 
Sample Figure 3-20 shows sample terminal displays of multiple identifier 
displays items. 









display 58096'hunter,sharon’ 


DEPT-NR, EMP-NM EMPL-NR 
5996, HUNTER, SHARON 68155 










a. Specifying both major and minor identifier items 


display ‘hunter,sharon’ 


EMP -NM EMPL-NR 
HUNTER, SHARON 68155 





b. Specifying the minor identifier for the DISPLAY command 


fist emp-nm for 5896 
5996 


DEPT-NR,EMP-NM 
HUNTER, SHARON 
HYATT, BARBARA 
JANSSEN, ALEX 





c. Specifying the minor identifier for the LIST command 


Figure 3-20. Terminal Display of Column Headers and Data Items for 
Multiple Identifiers 
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3.22. SPECIFYING A VALUE RANGE FOR THE IDENTIFIER 
(VALUE CLAUSE) 


Purpose 


Effect of 
omitting 
VALUE clause 


Format 


Literal-1, literal-2, ... 


Enclosing in 
quotes 


Using the VALUE clause 


You can use the VALUE clause to 
specify the valid value ranges an 
identifier can have when you are 
adding a record. Before allowing 
you to add the record, IMS checks 
its identifier’s validity and makes 
sure that its value lies within the 
specified ranges. 





When you omit the VALUE clause, IMS accepts any value consistent 
with the PICTURE and USAGE clauses specified for this item’s 
source. (See Figure 3-2.) 


The format is: 


VALUE IS literal-1](THROUGH)literal-2 
VALUES ARE THRU 


»literal-3/fTHROUGH)literal-4]]... 
THRU 


Literal-1, literal-2, ... specify the values or value ranges allowed for 
an identifier when a record is being added. You must put the values 
for literal-1, literal-2, etc, in ascending order and make their lengths 
equal to: 


a each other; and 


= to the item named by data-name-1 or data-name-2 in the ITEM 
or IDENTIFIER statement. 


Alphanumeric literals have to be enclosed in quotes; numeric 
literals do not. 


You must use the VALUE clause in an IDENTIFIER statement when: 


= you need to distinguish between indexed record occurrences 
that contribute to the defined record and _ successive 
occurrences of the same indexed record that do not contribute 
to the defined file; or 


= fraternal record types that have the same source (however, 
their value ranges cannot overlap). 
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Use with 
fraternal records 


Use with 
file segmentation 


Example 
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When you use the VALUE clause for identifier items in fraternal 
records that: 


= come from different sources, and 
= have identifier value ranges that overlap, 
you must also include the PREFIX clause (3.14). 


When you use the VALUE clause for an IDENTIFIER item, you 
cannot access records with keys outside the specified range. Thus, 
you could use the VALUE clause for file segmentation. For example, 
you could specify value ranges for IDENTIFIER items as A through I, 
J through R, and S through Z, to process segments of your payroll 
file in stages. 


8 12 
DEFINED RECORD PAYDATA FROM PAY-REC 
ALLOW ADD AND DELETE 
IDENTIFIER EMP-NM VALUE IS ‘A’ THROUGH ‘I’ 


In this example, you can add a pay record, but, unless the record 
identifier’s value falls between A and I, IMS rejects the update and 
returns an invalid request indicator (003) in the program status 
code. 


3.23. DEFINING OTHER ITEMS IN THE DEFINED RECORD 
(ITEM STATEMENT) 


Format 


Figure 3-21 shows the format for an ITEM statement. 


ITEM [item-name-2 FROM] data-name-2 
{HIDDEN ] 


[MUST ADD] 
[ALLOW CHANGE] 


VALUE IS literal-1l]f{ THROUGH] literal-2 
VALUES ARE THRU 


,literal-3 iT ee eee tes 
THRU 


Figure 3-21. ITEM Statement Format 
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3.24. NAMING THE ITEM (ITEM CLAUSE) 


Function 


Format 


Item-name-2 


Data-name-2 


Coding rule 


Example 


The ITEM clause begins an ITEM 
statement and names an item in | Eo 
the defined record. Its format is: 


EMPL-NM 


| 
ib 





ITEM [item-name-2 FROM] data-name-2 


Item-name-2 is a 1- to 30-character name, unique within the 
defined file definition. When you use UNIQUE, it appears as a 
terminal column header. You can omit item-name-2 when it is 
identical to data-name-2. 


Data-name-2 is a data division data name that is part of the source 
of the defined record’s primary part. Never qualify data-name-2; 
source name qualification is implied. Data-name-2 must be: 


="  anelementary item; or 


= a group item that contains only alphabetic, alphanumeric, or 
numeric items specifying USAGE IS DISPLAY. 


The data of the item named in the ITEM clause should not exceed: 
a 72 characters; or 


7 2 characters less than line length when UNIQUE displays it on 
a terminal containing less than 74 characters per line. 


8 12 
DATA DIVISION. 
FILE SECTION. 


FD EMPFILE. 

O1 EMPLOYEE-REC. 
62 DEPT-NR PIC X(4). 
82 EMP-NM PIC X(21). 
02 EMP-NR “PIC X(5). 


DEFINITION DIVISION. 

DEFINED FILE PAYROLL 

DEFINED RECORD EMPLOYEE 
FROM EMPLOYEE-REC 
IDENTIFIER DEPT-NR 
ITEM EMPL-NAME FROM EMP-NM 
ITEM EMP-NR 
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Defined record EMPLOYEE includes items EMPL-NAME and EMP- 
NR from EMPLOYEE-REC. Item EMP-NM is renamed EMPL-NAME; 


item EMP-NR retains the same name. 


3.25. PREVENTING ITEM DISPLAY (HIDDEN OPTION) 


Purpose 


Format 


Using the HIDDEN option 


Validating 
numeric 
fields 


Action programs and 
identifiers 


When using UNIQUE, you can 
prevent the terminal display of a 
data item defined by an ITEM 
statement. The HIDDEN option 
allows a subsequent POINTER 
clause to refer to an item without 
having that item displayed. The 
format is: 


HIDDEN 


When a UNIQUE terminal operator 
adds a defined record containing 
an item definition that specifies the 
HIDDEN option, he sees: 


#® spaces where an 
alphanumeric item would 
otherwise appear; and 


= zeros (in the proper data 
format) where a numeric item 
would appear. 


ae 





You can also use the HIDDEN option to place the correct format ina 
numeric field in a record that you add. Normally, IMS inserts binary 
zeros in the missing fields not included in a defined record. 
However, you can prevent this by including these fields in the 
defined record with ITEM clauses and then restricting their use with 


the HIDDEN option. 


IMS ignores the word HIDDEN when: 


= ~=you access a defined record with your own action programs; or 


= = «you use it in an IDENTIFIER statement. 
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Example 








8 12 

DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 
IDENTIFIER EMP-NR 
ITEM DEP-KEY HIDDEN 

DEFINED RECORD DEPENDENTS FROM DEPENDENT-REC 
PARENT IS EMPLOYEE 
POINTER IS DEP-KEY 





In this example, assume each employee record gives a pointer (DEP- 
KEY) that is used to locate the set of dependent records that are its 
child records. You can use the HIDDEN option when you do not want 
DEP-KEY data displayed at a UNIQUE terminal. 


3.26. SPECIFYING A REQUIRED ITEM (MUST ADD OPTION) 


Purpose 


Format 


Using the MUST ADD 
option 


ALLOW ADD 
clause 


Example 


You can use the MUST ADD option 
to specify that a certain record item 
must be present and contain a 
valid value before you add a record 
to the defined file. Use it only in an 
ITEM statement; identifier items 
are always present when you add a 
record. The format is: 





MUST ADD 


To be valid, a numeric item must be nonzero, and an alphanumeric 
item must contain other than all spaces. 


This option works only when you specify the ALLOW ADD clause 
(3.18) in your defined record definition. 


8 12 
DEFINED FILE PAYROLL 
DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 
ALLOW ADD AND DELETE 
IDENTIFIER EMP-NR 
ITEM EMP-NAME MUST ADD 
ITEM AGE 


Before you add an EMPLOYEE record to defined file PAYROLL, item 
EMP-NAME must contain a valid value. In this application, you use 
the MUST ADD option for EMP-NAME because it is an important 
part of the employee record. You don't specify the MUST ADD option 
for item AGE because, for this particular application, that item is not 
of major importance to the record. 
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3.27. ALLOWING CHANGES TO THE ITEM (ALLOW CHANGE OPTION) 


Purpose Terminal operators can_ only 
change the current item’s value 1! 
when you specify the ALLOW ' 
CHANGE option. The format is: 


+ | > EMP-NAME 
| | > MARITAL-STATUS 





Format ALLOW CHANGE 

Using the ALLOW This option works only in an ITEM statement, because identifier 
CHANGE option items cannot be changed. 

Restrictions on Do not specify ALLOW CHANGE in ITEM statements for two items in 
a a defined record when: 


= The source of one item overlaps the source of the other item 
(either item is a group item that contains the other). Otherwise, 
when item values are moved to a new or updated source 
& record, the second item moved covers up the first. 


. Both items have the same source field on disk. Otherwise, 
when you try to update the two items to new values, you don’t 
know what value you will get on disk. 


Example 8 12 
DEFINED RECORD EMPLOYEE 
ALLOW ADD AND DELETE 
IDENTIFIER EMP-NR 
ITEM EMP-NAME ALLOW CHANGE 
ITEM MARITAL-STATUS ALLOW CHANGE 


This example specifies that you can change items EMP-NAME and 
MARITAL-STATUS in defined record EMPLOYEE. You cannot 
change EMP-NR because it’s an identifier item. 


Changes to Without ALLOW CHANGE, IMS won't carry out any requested item 

items value changes to records on disk. When an action program attempts 
to update a record containing the changed item value, IMS returns 
control to the action program with an invalid request indicator (003) 
in the program status code. 
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3.28. SPECIFYING A VALUE RANGE FOR THE ITEM (VALUE CLAUSE) 


Purpose 


Effect of 
omitting 
VALUE clause 


Format 


Literal-1, literal-2, ... 


Enclosing in 
quotes 


Example 


You can use the VALUE clause to 
specify the valid value ranges an i 
item can have when you are 

adding or changing it. Before 
allowing you to update (ADD, 
CHANGE, PUT, or INSERT) an item, = uaes tote 
IMS checks its validity and makes 
sure that its value lies within the 
specified ranges. 





When you omit the VALUE clause, IMS accepts any value consistent 
with the PICTURE and USAGE clauses specified for this item's 
source. (See Figure 3-2.) 


The format is: 
VALUE IS literal-1ff{THROUGH) literal -2 
VALUES ARE THRU 


,literal-3 THROUGH) literal-4 set 
THRU 


Literal-1, literal-2, ... specify the values or value ranges allowed for 
an item being added or changed. You must put the values for literal- 
1, literal-2, etc, in ascending order and make their lengths equal to: 


a each other; and 


= the item named by data-name-1 or data-name-2 in the ITEM or 
IDENTIFIER statement. 


Alphanumeric literals have to be enclosed in quotes; numeric 
literals do not. 


8 12 
DEFINED RECORD PAYDATA FROM PAY-REC 
ALLOW ADD AND DELETE 
IDENTIFIER EMP-NR 
ITEMHOURLY-RATE ALLOW CHANGE VALUE 1S 0425 THROUGH 1508 


In this example, you can change the item HOURLY-RATE, but, 
unless the new values fall between 425 and 1500, IMS rejects the 
update. 
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® 3.29. INCLUDING PREVIOUSLY DEFINED ITEMS IN THE DEFINED RECORD 
(ALSO CLAUSE) 


Purpose 


Coding rule 


Format 


Item-alias, item-name 


& Example 


When you use the ALSO clause, 


the current defined record can faa 

include items described in its direct 

ancestors’ definitions. Without it, ae rH 
you can only include these items in PneMPNR |e 
the defined record by using a |_satany_|f 


supplement definition (2.30). 





This clause follows a defined record’s item definitions. 
its format is: 


ALSO [item-alias-1 FROM}item-name-3 
{,Litem-alias-2 FROMJitem-name-4]... 


For item-alias, use a 1- to 30-character name, unique for an item in 
the defined file. For item-name, use an item defined in a direct 
ancestor’s defined record definition. 


8 12 
DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 
IDENTIFIER JOB-NR 
ITEM EMPL-NM 
DEFINED RECORD PAYDATA FROM PAY-REC 
PARENT IS EMPLOYEE 
IDENTIFIER DEPT-NR 
ITEM EMP-NR 
ITEM SALARY 
ALSO EMP-NAME FROM EMPL-NM 


The ALSO clause includes item EMP-NAME in record PAYDATA. 
EMP-NAME was previously defined as item EMPL-NM in ancestor 
record EMPLOYEE. 
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3.30. SUPPLEMENT DEFINITION 


Purpose 


Sources of additional 
data items 


Rule 


Using multiple defined 
files 


Format 


Your defined record already contains identifier and other items from 
the primary part’s source record. By using defined record 
supplements, you can include in your defined record additional 
items from either indexed or nonindexed files. These additional 
items can come from: 


= the same source record; 

= adifferent source record; or 

=  arepeating group in different source record. 

Items can also come from a data base subschema, which is 
discussed in the IMS/DMS interface user guide, UP-8748 (current 


version). 


You must write separate supplement definitions for items that come 
from different sources and are added to a defined record. 


Supplements also help you to use multiple defined files to access 
data in different ways. See the IMS concepts and facilities manual, 
UP-9205 (current version) for a more detailed explanation of 
interrelated files. 


Figure 3-22 shows the format of the supplement definition and the 
sequence its clauses must follow. 













SUPPLEMENT supplement-name- 1 


FROM stored-record-name-1l 
FROM REPEATING GROUP data-name-1l 


IPOINTER IS item-name-1[,item-name-2]...] 
IFILL KEY TO -Literal-1]} 


ASSUMES (CONTROLLING)ROLE IN UPDATE 
CONTROLLED 
NEUTRAL 


{item-definition [item-definition]...] 





Figure 3-22. Supplement Definition Format 











UP-9209 SPERRY UNIVAC 0S/3 3-49 
IMS DATA DEFINITION AND UNIQUE 








SUPPLEMENT DEFINITION 








Deriving a Figure 3-23 shows how an item is derived from a different source 
supplement item record and included in a defined record. 


z SALARY 
YTD-EARN 





Figure 3-23. Deriving an Item from Another Source Record 


You cannot begin a supplement item definition with an IDENTIFIER 
statement; it can only contain ITEM statements. 


3.31. NAMING THE SUPPLEMENT (SUPPLEMENT CLAUSE) 


Function The SUPPLEMENT clause begins a 
supplement definition and names 
the supplement. Starting in column 
8, the format is: 





Format SUPPLEMENT suppiement-name- 1 


Supplement-name-1 Supplement-name-1 is a 1- to 30-character name, unique within 
the data definition. 


Example 8 12 
SUPPLEMENT DEPENDENT 


This example identifies a supplement, DEPENDENT. 
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3.32. IDENTIFYING THE SOURCE OF THE SUPPLEMENT 
(FROM CLAUSE) 


Function and formats Put the FROM clause directly after the SUPPLEMENT clause. It 
specifies the source of the supplement and has two formats, shown 
in Figure 3-24. 


SOURCE IS ONE RECORD 





Figure 3-24. Describing the Supplement’s Source Using FROM Clause Format 


Specifying One Record as the Source 
Use the format 


Format FROM stored-record-name- 1 


Purpose when the source of the supplement 
is one record that is the same as or 
different than the source of the 
primary part. 





Stored-record-name-1 Stored-record-name-1 is an 01-level record description in the data 
division (3.4). This supplement can include a data item from this 
source record when: 


a the data item meets length and usage constraints (3.24); and 


= ~ within stored-record-name-1, the data item precedes any item 
defined with an OCCURS clause (see Figure 3-2). 
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Example 8 12 
DATA DIVISION. 
FILE SECTION. 
FD EMP-FILE. 
@1 EMPLOYEE-REC. 
082 EMP-NM PIC X(21). 


®@1 DEPENDENT-REC. 
82 DEP-NM PIC X(21). 


DEFINITION DIVISION. 
DEFINED FILE EMPLOYEES 
DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 


SUPPLEMENT DEPENDENT FROM DEPENDENT -REC 


DEPENDENT-REC, an O1-level record description, supplies the 
contents of supplement DEPENDENT. 


Specifying a Repeating Group as the Source 
Use the format 


Format FROM REPEATING GROUP data-name-1 


Purpose when the source of the supplement 
is a group item appearing in the 
data division with an OCCURS 
clause. The supplement’s source 
can come from the same or a 
different file than the source of the 
primary part. 
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Data-name-1 


Restrictions on 
adding records 


Example 





Data-name-1 is a data name defined in the data division with both 
OCCURS and KEY clauses. You can include any data-name-1 item in 
this supplement when: 


= the item meets length and usage constraints (3.24); and 


= within data-name-1, it precedes any item (other than data- 
name-t1 itself) defined with an OCCURS clause. 


When data-name-1 is contained within one or two larger group 
items that are also described with OCCURS clauses, those 
descriptions must include the KEY clause. 


Do not use this format when you want to add records with a 
UNIQUE ADD command, INSERT function, or ADD specification in 
your action program. Adding a record produces binary zeros as the 
value of data-name-1, so it cannot contain a unique key. 


8 12 

DATA DIVISION. 

FILE SECTION. 

FD EMP-FILE. 

@1 EMPLOYEE-REC. 
02 EMP-NR Pic X(5). 
02 EMP-NM PIC X(21). 


82 DEPENDENTS OCCURS 18 TIMES 
ASCENDING KEY IS DEP-NAME. 
63 DEP-NAME PIC X(21). 
DEFINITION DIVISION. 
DEFINED FILE INSURANCE 
DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 
IDENTIFIER EMP-NR 
ITEM EMP-NM 
SUPPLEMENT DEPENDENT FROM REPEATING GROUP DEPENDENTS 


Repeating group DEPENDENTS, an 0O2-level entry in record 
EMPLOYEE-REC, supplies the contents of supplement DEPENDENT. 
DEPENDENTS appears in the data division file section with both 
OCCURS and KEY clauses. 
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3.33. LOCATING THE SOURCE OF THE SUPPLEMENT 
(POINTER CLAUSE) 


Purpose When the supplement’s source is: 


# a repeating group item in the same indexed file as the primary 
part’s source, or 


. a record in a different indexed or nonindexed file than the 
primary part’s source, 


you must use the POINTER clause (Figure 3-25) to name the items 
whose values locate a specific occurrence of this supplement’s 
source record. 


SUPPLEMENT’S SOURCE IS REPEATING GROUP ITEM IN SAME INDEXED FILE 


ADAMS, BEN oy.” 
“Tt! ADAMS, BEN -1* 


ADAMS, BEN 


a 


ADAMS, SARA +f 





a. Building an indexed record key 


Figure 3-25. POINTER Clause for Supplements (Part 1 of 2) 
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Format 


Item-name 


Forming pointers 


Separate file or 
repeating group as source 





ADAMS, BEN 





b. Building a relative record number 


Figure 3-25. POINTER Clause for Supplements (Part 2 of 2) 


The format is: 


POINTER IS item-name-1 [,item-name-2]... 


Item-name-1,item-name-2,... are items previously defined in the 
definition of: 


a the current defined record; or 
. a direct ancestor of the current defined record. 


The POINTER is a character string formed by linking the values of 
item-name-1, item-name-2,... from left to right. 


When this supplement’s source is in a separate indexed file or is a 
repeating group item in the same indexed file, IMS builds a 
reference key by: 


= =~=matching the record key in the supplement’s source with a field 
in the primary part’s source; 


= = left-justifying the reference key (pointer) and filling it to the 
right with spaces (hexadecimal 40); and 


. making the pointer’s rightmost characters equal to literal-1 in 
the FILL KEY clause, if specified. 
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Nonindexed file as source 


Repeating group 
requirements 


Example 1 


When this supplement’s source is a record or repeating group item 
in a nonindexed file, IMS builds a file relative record number by: 


= matching the relative record number from the supplement’s 
source with a field in the primary part’s source; and 


= ~=right-justifying the relative record number (pointer) and filling it 
to the left with binary zeros. 


When the supplement’s source is a repeating group in either an 
indexed or nonindexed file, the record keys of the repeating group’s 
records must differ only in the rightmost character positions, as 
specified by literal-1 of the FILL KEY clause (3.34). The remaining 
characters in the record keys are identical for all records in the 
group and are determined by the key of the first source in the group. 


8 12 
FD EMPFILE. 
O1 EMP-REC. 
82 EMP-NO PIC X(5). 
62 NAME-DEP PIC X(21). 
FD DEPFILE. 
O1 DEP-REC. 


62 DEPS OCCURS 5 TIMES 
ASCENDING KEY IS DEP-NAME. 
03 DEP-NAME PIC X(21). 
83 D-SSN PIC X(9). 
DEFINITION DIVISION. 
DEFINED FILE EMPLOYEES 
DEFINED RECORD EMPLOYEE FROM EMP-REC 
IDENTIFIER EMP-NO 
ITEM NAME-DEP 
SUPPLEMENT DEPENDENT FROM REPEATING GROUP DEPS 
POINTER |S NAME-DEP 
ITEM D-SSN 


This example involves sources in two indexed files. Defined record 
EMPLOYEE’s data comes from EMP-REC in indexed file EMPFILE. 
Supplement DEPENDENT’s data comes from DEPFILE’s repeating 
group DEPS, whose key equals DEP-NAME. Item NAME-DEP 
contains a record key pointing to the DEPFILE record that holds the 
dependent data for each employee record. 
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Example 2 


interrelated 
defined files 


8 12 


FD EMPFILE 
01 EMP-REC. 
62 EMP-NM PIC X(21). 
62 EMP-NO Pic X(5). 
FD DEPFILE. 
61 DEP-REC. 
92 REC-NO PIC X(5). 
62 DEP-NM PIC X(21). 


DEFINITION DIVISION. 

DEFINED FILE EMPLS 

DEFINED RECORD EMPLOYEE FROM EMP-REC 
IDENTIFIER EMP-NM 
ITEM EMP-NO 

SUPPLEMENT DEPENDENT FROM DEP-REC 
POINTER |S EMP-NO 
ITEM DEP-NM 


This example involves sources in indexed and nonindexed files. 
Defined record EMPLOYEE’s data comes from EMP-REC in indexed 
file EMPFILE. Supplement DEPENDENT’s data comes from DEP-REC 
nonindexed file DEPFILE. Item EMP-NO contains a file relative 
record number pointing to the DEPFILE record that holds the 
dependent data for each employee record. 


The POINTER clause can also have the same effect as an ITEM 
clause when it is used for supplements in interrelated defined files. 
See 4.5 for an example. 


3.34. ACCESSING RECORDS ACCORDING TO TYPE (FILL KEY CLAUSE) 


Purpose 


When several types of indexed 
records are interspersed in the 
source file, you can use the FILL 
KEY clause to distinguish between 
record types. This clause uses the 
rightmost characters of an indexed 
file’s record key to make the key for 
each record type unique. 
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Using the FILL KEY 
clause 


POINTER and 
FILL KEY 
clauses 





You must use the FILL KEY clause for records in the same source 
file when: 


= there is no POINTER clause; or 
= the POINTER clause does not specify all of the characters of a 
record key, and the remaining right-hand characters must have 


a value other than spaces (hexadecimal 40). 


Table 3-2 summarizes the uses of FILL KEY and POINTER clauses. 


Table 3-2. Using POINTER and FILL KEY Clauses 


Not required Not applicable 
Not required, but can Required 
be used 


Required for first record Not applicable 
in sequence 





Required for first sup- Required for multiple sup- 
plement named from that | plements from same file 
file 





Required Not applicable 
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The format is: 





Format FILL KEY TO literal-1 
Literal-1 Literal-1 becomes the rightmost character or characters of the 
How FILL KEYs work record key and must be enclosed in single quotes. It can be no 


longer than the part of the key not specified by POINTER and 
IDENTIFIER items. When there is no POINTER clause, the value of 
literal-1 must be: 


= greater than spaces (hexadecimal 40); and 


= greater than literal-1 of any FILL KEY clause in the directly 
preceding supplement definition, because each indexed 
record's key must be greater than the key of the record directly 
preceding it in the file. 


Example 1 8 12 
FD EMPFILE. 
O01 EMP-REC. 
02 EMP-NO PIC X(5). 
@1 DEP-REC. 
682 EMP-NO PIC X(5). 
61 PAY-REC. 
82 EMP-NO PIC X(5). 





DEFINITION DIVISION. 

DEFINED FILE EMPLS 

DEFINED RECORD EMPLOYEE FROM EMP-REC 
IDENTIFIER EMP-NO 

SUPPLEMENT DEPENDENT FROM DEP-REC 
FILL KEY TO ‘D’ 

SUPPLEMENT PAYROLL FROM PAY-REC 
FILL KEY TO ‘P’ 


In this example, indexed file EMPFILE includes employee, 
dependent, and payroll records. EMP-REC record keys are emp- 
no,A; DEP-REC record keys are emp-no,D; PAY-REC record keys are 
emp-no,P. Defined record EMPLOYEE names EMP-REC as its 
source, but, by specifying FILL KEY TO ‘D’ and FILL KEY TO ‘P’, you 
need no pointers to the sources of DEPENDENT or PAYROLL. 




















UP-9209 SPERRY UNIVAC OS/3 3-59 
IMS DATA DEFINITION AND UNIQUE 
SUPPLEMENT DEFINITION 
Example 2 8 12 
FD EMPFILE. 
01 EMP-REC. 
62 EMP-NO PIC X(5). 
FD BFILE. 
01 DEP-REC. 
62 EMP-NO PIC X(5). 
O61 PAY-REC. 
02 EMP-NO PIC X(5). 


DEFINITION DIVISION. 

DEFINED FILE EMPLS 

DEFINED RECORD EMPLOYEE FROM EMP-REC 
IDENTIFIER EMP-NO 

SUPPLEMENT DEPENDENT FROM DEP-REC 
POINTER IS EMP-NO 
FILL KEY TO ‘D’ 

SUPPLEMENT PAYROLL FROM PAY-REC 
FILL KEY TO ‘P’ 


In this example, the source of record EMPLOYEE is EMP-REC in 
indexed file EMPFILE. The sources of supplements DEPENDENT and 
PAYROLL are located in a separate indexed file (BFILE). By 
specifying the FILL KEY clause, you can distinguish between the 
records. You only need the POINTER clause for the first supplement, 
DEPENDENT. 


3.35. SPECIFYING THE EFFECTS OF DEFINED RECORD CHANGES 
(ROLE IN UPDATE CLAUSE) 


Purpose 


Format 


Options 


Use the ROLE IN UPDATE clause to specify how the supplement’s 
source affects or is affected by adding, deleting, or changing a 
defined record. The format is: 


CONTROLLED 


ASSUMES/(CONTROLLING) ROLE IN UPDATE 
NEUTRAL 


Table 3-3 summarizes the ROLE IN UPDATE options. 
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Function 


Restrictions 


Example 


Supplement’s source 





No effect on supple- 
ment’s source. 


Supplement’s source 


is also deleted from 
the file. 


No effect on suppie- 


Table 3-3. ROLE IN UPDATE Options and Their Meanings 


Supplement’s source 
cannot be changed. 


Supplement’s source 
can be changed. 


Supplement’s source 








ment’s source. cannot be changed. 


Specifying CONTROLLING 


CONTROLLING means that you 
cannot add a defined record unless 
the source of the supplement is 
already in the file. 





It does not control deletion of a defined record. When you add, 
delete, or change a defined record, the supplement’s source is not 
affected. If you specify MUST ADD (3.39) or ALLOW CHANGE (3.40) 
for any supplement item, the processor issues error messages and 
won't successfully create a data definition record. 


8 12 

FD INSFILE 
61 INS-REC. 
Q1 EMP-REC. 


DEFINITION DIVISION. 

DEFINED FILE INSURANCE 

DEFINED RECORD EMP-INSURANCE FROM INS-REC 
ALLOW ADD AND DELETE 

SUPPLEMENT EMPLOYEE FROM EMP-REC 
ASSUMES CONTROLLING ROLE IN UPDATE 


In this example, defined record EMP-INSURANCE is from INS-REC. 
Supplement EMPLOYEE, from EMP-REC, contains data pertaining to 
employee insurance records. Because you use the CONTROLLING 
option, you can add an employee insurance record only when 
employee data is available. You cannot change the value of any 
items contained in supplement EMPLOYEE. 
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e Specifying CONTROLLED 


Function CONTROLLED means that you add 
or delete this supplement’s source 
whenever you add or delete a 
defined record. Thus, the primary 
part and its supplement are added 
and deleted as a pair. The 
supplement’s source must not be a 
repeating group item. 








Restrictions You can specify MUST ADD or ALLOW CHANGE for a supplement 
item only when you specify CONTROLLED for the supplement. 
When this supplement’s source is in the file before you add a 
record, a new source occurrence replaces the old. 


Alternate access You can also use the CONTROLLED option to access the same data 
in a different way when the supplement’s source is also the source 
of the primary part in a different defined file. See 4.5 for an 


example. 
Example 8 12 
FD PAYFILE 


& 01 EMP-REC. 
01 PAY-REC. 
DEFINED FILE PAYROLL 
DEFINED RECORD EMPLOYEE FROM EMP-REC 
ALLOW ADD AND DELETE 


SUPPLEMENT PAY-RECORD FROM PAY-REC 
ASSUMES CONTROLLED 


Defined record EMPLOYEE is from EMP-REC. Supplement 
PAYROLL, from PAY-REC, contains employee payroll data. Because 
you specify the CONTROLLED option, when you add or delete 
employee data, you must add or delete payroll data. You can also 
change the value of any items contained in supplement PAYROLL. 


Specifying NEUTRAL 


Function NEUTRAL means that this 
supplement’s source’ neither 
affects nor is affected by adding or 
deleting a defined record. You can 
add a defined record without the 
supplement’s source already being 
in the file. And, when you add or delete a defined record, the 

& supplement’s source does not change. 
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Restrictions 


Example 





You use the data in the supplement for retrieval purposes only, and 
you cannot change the value of any supplement item. If you specify 
MUST ADD or ALLOW CHANGE for a supplement item, the 
processor issues error messages and won't successfully create a 
data definition record. NEUTRAL is selected by default when you 
omit the ROLE IN UPDATE ciause. 


8 12 

FD PAYFILE. 

O61 EMPLOYEE-PAY. 

61 PERSONAL-DATA. 

DEFINED FILE PAYROLL 

DEFINED RECORD PAYREC FROM EMPLOYEE-PAY 
ALLOW ADD AND DELETE 

SUPPLEMENT PERSONAL FROM PERSONAL-DATA 
ASSUMES NEUTRAL 


Defined record PAYREC is from EMPLOYEE-PAY. Supplement 
PERSONAL, from PERSONAL-DATA, contains personal data about 
employees, such as health and job history information. Because you 
specify the NEUTRAL option, the addition or deletion of an 
employee’s pay record does not affect and is not affected by the 
status of his personal record. Data in his personal record is used for 
information only; it cannot be changed. You obtain the same effect 
by omitting the ROLE IN UPDATE clause. 


3.36. ITEM DEFINITION 


No IDENTIFIER 
statements 


Format 


A supplement item definition follows the same format as a defined 
record item definition (See 3.19 through 3.28). However, a 
supplement item definition cannot contain IDENTIFIER statements; it 
can only contain ITEM statements. 


Figure 3-26 shows the format of the supplement item definition. 


[TEM [item-name-2 FROM) data-name-2 
[HIDDEN] 

[MUST ADD] 

[ALLOW CHANGE] 


VALUE 1S iscsi age ees 


VALUES ARE THRU 


literal-3 fac wig 
THRU 


[ALSO [item-alias-1 FROMJitem-name-3 
[.fitem-alias-2 FROMJitem-name-4]...] 





Figure 3-26. Item Definition Format for a Supplement 
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3.37. NAMING THE ITEM (ITEM CLAUSE) 


Format and rules 


Example 


The ITEM clause follows the same 
format and rules in a supplement eS 
as in a defined record (see 3.24), 
except that data-name-2 is a data 


division data name that comes aaa 


from the supplement’s source. SALARY 
YTD-EARN 





8 12 
DATA DIVISION. 
FILE SECTION. 





FD EMPFILE. 
O61 EMPLOYEE-REC. 
62 DEPT-NR PIC X(4). 
62 EMP-NM PIC X(21). 
62 EMP-NR PIC X(5). 
O1 PAY-REC. 
62 SALARY PIC 9(5)V99. 
62 YTD-EARNINGS PIC 9(7)V99 USAGE COMP-3. 


DEFINITION DIVISION. 
DEFINED FILE PAYROLL 
DEFINED RECORD EMPLOYEE 
FROM EMPLOYEE-REC 
IDENTIFIER DEPT-NR 
ITEM EMPL-NAME FROM EMP-NM 
{TEM EMP-NR 
SUPPLEMENT PAYDATA 
FROM PAY-REC 
ITEM SALARY 
ITEM YTD-EARN FROM YTD-EARNINGS 


Supplement PAYDATA includes items SALARY and YTD-EARN in 
defined record EMPLOYEE. 


3.38. PREVENTING ITEM DISPLAY (HIDDEN OPTION) 


Format and rules 


The HIDDEN option follows the 
same format and rules in a 
supplement as in a defined record. 
(See 3.25). 


[d@ DEP-KEY 
DEP-KEY 
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Example 8 12 

DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 
IDENTIFIER EMP-NR 
ITEM EMP-NM 

SUPPLEMENT DEP1 FROM DEPENDENT-REC 
ITEM DEP-NAME 
ITEM DEP-KEY HIDDEN 

SUPPLEMENT DEP2 FROM SUPP-REC 
POINTER IS DEP-KEY 
ITEM SSNO 





In this example, each DEP1 record gives a pointer (DEP-KEY) that 
locates DEP2 records. You can use the HIDDEN option when you 
don't want DEP-KEY data displayed at a UNIQUE terminal. 
Supplements DEP1 and DEP2 include DEP-NAME and SSNO in 
defined record EMPLOYEE. 


3.39. SPECIFYING A REQUIRED ITEM (MUST ADD OPTION) 


Format and rules The MUST ADD option follows the 
same format and rules in a 
supplement as in a defined record. 
(See 3.26.) The MUST ADD option | | 
applies only when _ the | | 
supplement’s ROLE IN UPDATE 





[sso im 


(3.35) is CONTROLLED. _d+- 





Example 8 12 

DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 
IDENTIFIER EMP-NR 
ITEM EMP-NM 

SUPPLEMENT DEPENDENT FROM DEPENDENT -REC 
ASSUMES CONTROLLED ROLE IN UPDATE 
ITEM DEP-NAME MUST ADD 
!{TEM SSNO 


Before you add an EMPLOYEE record, supplement item DEP-NAME 
must contain a valid value. Supplement DEPENDENT’s ROLE IN 
UPDATE must be CONTROLLED. 
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® 3.40. ALLOWING CHANGES TO THE ITEM (ALLOW CHANGE OPTION) 


Format and rules 


Example 


The ALLOW CHANGE option 
follows the same format and rules 
in a supplement as in a defined 
record. (See 3.27.) The ALLOW 
CHANGE option applies only when 
the supplement’s ROLE IN UPDATE 
(3.35) is CONTROLLED. 





8 12 
DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 
ALLOW ADD AND DELETE 
IDENTIFIER EMP-NR 
1TEM EMP-NM 
SUPPLEMENT DEPENDENT FROM DEPENDENT-REC 
ASSUMES CONTROLLED 
TTEM DEP-NAME ALLOW CHANGE 
ITEM SSNO 
ITEM AGE ALLOW CHANGE 


In this example, you can change items DEP-NAME and AGE in 
supplement DEPENDENT. You cannot change item SSNO. To 
change any supplement item, supplement DEPENDENT’s ROLE IN 
UPDATE must be CONTROLLED. 


3.41. SPECIFYING A VALUE RANGE FOR THE ITEM (VALUE CLAUSE) 


Format and rules 





The VALUE clause follows the 
same format and rules in a . 7 
supplement as in an ITEM 
statement for a defined record. 


(See 3.28.) The VALUE clause HOURLY-RATE fag 
applies only when you specify the > =0425- 
supplement’s ROLE IN UPDATE 1500 


(3.35) as CONTROLLED. +/- 
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DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 
ALLOW ADD AND DELETE 
IDENTIFIER EMP-NR 
ITEM EMP-NM 
SUPPLEMENT PAYDATA FROM PAY-REC 
ASSUMES CONTROLLED 
ITEM HOURLY-RATE ALLOW CHANGE VALUE IS 0425 THROUGH 1588 





You can change supplement item HOURLY-RATE, but, unless the 
new values fall between 425 and 1500, IMS rejects the update and 
returns an invalid request indicator (003) in the program status 
code. 


3.42. INCLUDING PREVIOUSLY DEFINED ITEMS IN THE DEFINED RECORD 
(ALSO CLAUSE) 


Purpose 


Format and rules 


Example 


With the ALSO clause, the current 
defined record can inciude items 
from its direct ancestors. You do 
not need to write supplement 
definitions for items named in an 
ALSO clause, but the clause must 
follow any supplement definitions 
you do write. 


Ear 





This clause uses the same format and rules as when it follows a 
defined record's item definitions. (See 3.29.) 


8 12 

DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 
IDENTIFIER JOB-NR 
ITEM EMPL-NM 

DEFINED RECORD PAYDATA FROM PAY-REC 
PARENT IS EMPLOYEE 
IDENTIFIER DEPT-NR 
ITEM EMP-NR 
ITEM SALARY 

SUPPLEMENT PAY1 FROM SUPP-REC 
ASSUMES CONTROLLED 
ITEM YTD-EARN 
ALSO EMP-NAME FROM EMPL-NM 


The ALSO clause includes item EMP-NAME in defined record 
PAYDATA. EMP-NAME was previously defined as item EMPL-NM in 
ancestor record EMPLOYEE. This clause follows the supplement 
definition used to include another item, YTD-EARN, in PAYDATA. 
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3.43. SUBRECORD DEFINITION 


Purpose You can include two or more variations of a defined record in the 
same data definition. A variation of a defined record is a subrecord. 


Contents A subrecord contains the same data as the defined record, but it 
may differ in: 


= the number, position, and names of items included; and 
a the update functions allowed. 
Accessed through You can access a subrecord only by including it in a subfile. 


subfiles Terminal operators using UNIQUE must name the subfile in the 
OPEN command before requesting a subrecord. 


Rule You must write a separate subrecord definition for each variation of 
the defined record. Figure 3-27 shows the format of the subrecord 
definition. 








Format 
SUBRECORD subrecord-name-1[OF subrecord-name-2] 
ALLOW(ADD OF RECORD 
DELETE 
ADD AND DELETE 
[subitem-definition].... 
Figure 3-27. Subrecord Definition Format 
Identifiers Each subrecord automatically includes all identifier items from the 


defined record. Therefore, you only use the IDENTIFIER clause to 
change an identifier name. You include other items in the subrecord 
by writing subitem definitions (3.47 through 3.52). 
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Subrecord independence 


Subitem 
independence 





Although a subrecord is a subset of a defined record, a defined 
record and its subrecord are independent of each other. Thus, you 
can allow updates: 


to the defined record and not to the subrecord; 


to the subrecord and not to the defined record; or 


to both the defined record and its subrecord. 





The same rule applies to clauses you specify for defined record 
items and subitems in a subrecord. 


3.44. NAMING THE SUBRECORD (SUBRECORD CLAUSE) 


Function 


Format 


Subrecord-name-1 


Example 


The SUBRECORD clause begins a subrecord definition and names 
the subrecord. Starting in column 8, the format is: 


SUBRECORD subrecord-name-1 





Subrecord-name-1 is a 1- to 30-character name, unique within the 
data definition, that identifies the subrecord. 


8 12 
DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 
SUBRECORD EMPLOYEE-SUB1 


This example identifies EMPLOYEE-SUB1 as a subrecord of defined 
record EMPLOYEE. 
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3.45. INCLUDING PREVIOUSLY DEFINED ITEMS IN THE SUBRECORD 





(OF CLAUSE) 

Reducing You can use the OF clause to 

subitem reduce the number of subitem 

Penn OnE definitions (3.47 through 3.52) you =e 
write when you have already used 
other subrecord definitions in a 
defined record. 

Purpose The OF clause lets you include subitems already defined in a 
previous subrecord without redefining them. 
The format is: 

Format OF subrecord-name-2 

Subrecord-name-2 Subrecord-name-2 is a subrecord already defined within this 
defined record definition. 

Example 8 12 


DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 
SUBRECORD EMPLOYEE-SUB1 

ITEM EMP-NR 

ITEM JOB-NR 
SUBRECORD EMPLOYEE-SUB2 OF EMPLOYEE-SUB1 


The OF clause in subrecord EMPLOYEE-SUB2 says that subitems 
EMP-NR and JOB-NR, described in subrecord EMPLOYEE-SUB1’s 
definition, are also contained in EMPLOYEE-SUB2. 


3.46. ALLOWING SUBRECORD ADDITIONS AND DELETIONS 
(ALLOW ADD AND DELETE CLAUSE) 


Purpose The ALLOW ADD AND DELETE 
clause permits terminal operators 
using UNIQUE or your action 
programs to add or delete 
subrecord occurrences. The format 











is: 

Format ALLOW(ADD OF RECORD 
DELETE 
ADD AND DELETE 
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Adding and deleting 
records 


Example 
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ADD 
Allows only additions. 


DELETE =| 
Allows only deletions. 


ADD AND DELETE rym 
Allows additions and deletions. 


Without any of these statements in a subrecord definition, you 
cannot add or delete occurrences of the subrecord. For example, 
when you do not include ALLOW ADD, ALLOW DELETE, or ALLOW 
ADD AND DELETE in the subrecord definition, IMS rejects as 
invalid: 


= = any input of the UNIQUE ADD or DELETE commands; or 
= = any add or delete function issued by an action program. 
8 12 


SUBRECORD EMPLOYEE-SUB1 
ALLOW ADD AND DELETE 


This allows you to add or delete occurrences of subrecord 
EMPLOYEE-SUB1 in the defined file. 


3.47. SUBITEM DEFINITION 


Function 


The subitem definition is part of the subrecord definition. It includes 
in the subrecord items previously described in the defined record’s 
item definitions. 

Figure 3-28 shows the format of the subitem definition. 


Write a subitem definition for each item in the subrecord. 
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IDENTIFIER item-alias-1 FROM{item-name-1 
item-alias-2 


ITEMLitem-alias-3 sas Ie 


item-alias-4 
ADD] 
CHANGE } 


1s literal-1l]JTHROUGH| literal -2 
VALUES ARE THRU 


,literal-3} (THROUGH) literal-4]]... 
THRU 


Figure 3-28. Subitem Definition Format 


3.48. NAMING THE IDENTIFIER (IDENTIFIER CLAUSE) 


Purpose 


Format 


Item-alias-1 


Item-name-1 


Item-alias-2 


The subrecord automatically 
includes identifier items, but you 
can use an IDENTIFIER clause to 
change the name of an identifier. 
The format is: 





IDENTIFIER item-alias-1 FROMfitem-name-1 
item-alias-2 


ltem-alias-1 is a 1- to 30-character name that renames the identifier 
item. When a terminal operator accesses this subrecord through 
UNIQUE, this name is displayed as a terminal column header. 


Item-name-1 is an identifier item previously defined within this 
defined record definition. Use this option when the subrecord 
definition does not include an OF clause (3.45). 


Item-alias-2 is an identifier item already renamed in a previous 
subrecord definition. Use this option when the current subrecord 
includes the OF clause. In that OF clause, you must specify that 
previous subrecord as subrecord-name-z2. 
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Example 8 12 

DEFINED RECORD EMPLOYEE 
IDENTIFIER L-NAME 
ITEM FIRST-NAME 
ITEM M-NAME 
ITEM EMP-NO 

SUBRECORD EMPLOYEE-SUB1 
IDENTIFIER LAST-NAME FROM L-NAME 





identifier L-NAME in defined record EMPLOYEE is renamed LAST- 
NAME in subrecord EMPLOYEE-SUB1. 


» 


3.49. NAMING THE ITEM (ITEM CLAUSE) 





Function The ITEM clause includes in the . 
subrecord an item described in a f 
preceding defined record or a 
subrecord. It can also give a new 
name (alias) to the item for use a 
within this subrecord. The format ; 
is: é 

: oe 
Format ITEM [item-alias-3] FROMfitem-name-2 
embers 
Item-alias-3 Item-alias-3 names the subitem. It must be 1 to 30 characters, 


unique within the subrecord definition. When a terminal operator 
accesses this subrecord through UNIQUE, this name is displayed as 
a terminal column header. When the subitem has the same name as 
item-name-2 or item-alias-4, omit item-alias-3 and the word FROM. 


Item-name-2 ltem-name-2 is an item previously defined within this defined record 
definition. Use this option when this subrecord definition does not 
include an OF clause (3.45). 


Item-alias-4 Item-alias-4 is a subitem already renamed in a previous subrecord 
definition. Use this option when the current subrecord includes the 
OF clause. In that OF clause, you must specify that: previous 
subrecord as subrecord-name-2. 
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Example 


8 12 
DEFINED RECORD EMPLOYEE 
IDENTIFIER LAST-NAME 
ITEM FIRST-NAME 
ITEM M-NAME 
ITEM EMP-NO 
SUBRECORD EMPLOYEE-SUB1 
ITEM FIRST-NAME 
ITEM MIDDLE FROM M-NAME 
SUBRECORD EMPLOYEE-SUB2 OF EMPLOYEE-SUBI 
ITEM FIRST FROM FIRST-NAME 


The items FIRST-NAME and M-NAME are defined in record 
EMPLOYEE. In subrecord EMPLOYEE-SUB1, FIRST-NAME retains 
the same name and M-NAME is renamed MIDDLE. EMPLOYEE- 
SUB1 automatically includes’ identifier item LAST-NAME. 
EMPLOYEE-SUB2 includes identifier item LAST-NAME, item 
MIDDLE, and item FIRST (renamed from item FIRST-NAME in 
subrecord EMPLOYEE-SUB1). 


3.50. SPECIFYING A REQUIRED ITEM (MUST ADD OPTION) 


& Purpose 


Format 


Using the MUST ADD 
option 


Restrictions 


Example 


You can use the MUST ADD option 
to specify that a certain subitem 
must be present and contain a 
valid value before a_ terminal 


operator can add a_ subrecord +FIRST-NAME 
occurrence. The format is: : MIDDLE-NAME 


+/- 





MUST ADD 


To be valid, a numeric subitem must be nonzero, and an 
alphanumeric subitem must contain other than all spaces. 


MUST ADD works only when you specify the ALLOW ADD or 
ALLOW ADD AND DELETE clause in your subrecord definition. 


8 12 
DEFINED RECORD EMPLOYEE FROM EMPLOYEE-REC 
IDENTIFIER LAST-NAME 
ITEM FIRST-NAME 
ITEM M-NAME 
SUBRECORD EMPLOYEE-SUB1 
ALLOW ADD AND DELETE 
ITEM FIRST-NAME MUST ADD 
ITEM MIDDLE-NAME FROM M-NAME 
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Before you add an EMPLOYEE-SUB1 subrecord occurrence, subitem 
FIRST-NAME must contain a valid value. The MUST ADD option is 
not specified for MIDDLE-NAME, so you do not have to include it to 
add an EMPLOYEE-SUB1 subrecord. 


3.51. ALLOWING CHANGES TO THE ITEM (ALLOW CHANGE OPTION) 


Purpose 


Format 


Example 


Effect of omitting 
ALLOW CHANGE 


Terminal operators can only make 
changes to the subitem when you 
specify the ALLOW CHANGE 


* Pe 
—>LAST-NAME 
The format is: | FNAME | 


ALLOW CHANGE 





8 12 
DEFINED RECORD EMPLOYEE 
ALLOW ADD AND DELETE 
IDENTIFIER EMP-NO 
ITEM LAST-NAME 
{TEM FIRST-NAME 
SUBRECORD EMPLOYEE-SUB1 
ALLOW ADD AND DELETE 
ITEM LAST-NAME ALLOW CHANGE 
ITEM F-NAME FROM FIRST-NAME 


In this example, ALLOW CHANGE specifies that you can change 
item LAST-NAME in subrecord EMPLOYEE-SUB1. You cannot 
change item FIRST-NAME because ALLOW CHANGE is not 
specified. 


Without ALLOW CHANGE, IMS won't carry out any requested 
subitem value changes to records on disk. When an action program 
attempts to update a record containing the changed item value, IMS 
returns control to the: action program with an invalid request 
indicator (O03) in the program status code. 

















UP-9209 SPERRY UNIVAC OS/3 3-75 
IMS DATA DEFINITION AND UNIQUE 








SUBRECORD DEFINITION 














& 3.52. SPECIFYING A VALUE RANGE FOR THE ITEM (VALUE CLAUSE) 


Purpose You can use the VALUE clause to 
specify the valid value ranges a 
subitem can have for it to be added 
or changed. When you omit the 
VALUE clause, IMS accepts any | HOURLY-RATE 
value consistent with the PICTURE —> =0425-1500 
or USAGE clauses specified for this +/- 
item’s source (see Figure 3-2). “f= 





The format is: 


Format aT 1S |! ae | 


VALUES ARE THRU 
,literal-3]/ {THROUGH} literal -4 
THRU 
Literal-1, literal-2, ... Literal-1, literal-2,... specify the values or value ranges allowed for a 


subitem being added or changed. You must put the values for literal- 
1, literal-2, etc, in ascending order and can specify no more than 64 

@ literals. Alphanumeric literals have to be enclosed in single quotes; 
numeric literals do not. 


Example 8 12 

DEFINED RECORD PAYROLL 
ALLOW ADD AND DELETE 
IDENTIFIER EMP-NR 
ITEM EMP-NM 

SUBRECORD PAYROLL-SUBI 
ALLOW ADD AND DELETE 
ITEM HOURLY-RATE ALLOW CHANGE VALUE IS #425 THROUGH 1568 


You can change subitem HOURLY-RATE, but, unless the new values 
fall between 425 and 1500, IMS rejects the update. 
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3.53. SUBFILE DEFINITION 


Purpose 


Contents 


Format 


You can include two or more variations of the defined file in the 
same data definition by using a subfile. A subfile definition 
describes an independent subset of a defined file. A subfile contains 
defined records, subrecords, or both. To access subrecords, you 
must include them in a subfile definition. 


Defined files and subfiles can differ in the number and makeup of 
the defined record types they contain. Each subfile definition can 
define only one variation of the defined file. 


Figure 3-29 shows the format of the subfile definition. 








SUBFILE subfite-name-1[ PASSWORD} 


CONTAINS$ defined-record-name-1 , rere oe-8 
subrecord-name-1 subrecord-name-2 






Figure 3-29. Subfile Definition Format 


3.54. NAMING THE SUBFILE (SUBFILE STATEMENT) 


Function 


Format 


Subfile-name-1 


The SUBFILE statement begins a subfile definition and names the 
subfile. Starting in column 8, the format is: 


SUBFILE subfite-name-1 [PASSWORD] 





Subfile-name-1 is one to seven characters and must differ from the 
names of: 


a the defined file and other subfiles within the data definition; 
and 


= any conventional file assigned to IMS. 
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Using subfile 
names 


Passwords 


PASSWORD clause 


Defining passwords 
with the NAMEREC utility 


Effect of omitting 
password 


@ definition 


Outside references 


Within the data definition, subfile names are used the same way as 
a defined file name. 


With UNIQUE, you allow access to 
subfiles by using the PASSWORD J 
clause; with action programs, you PASSWORD 
do not use this clause. When you 
specify PASSWORD, terminal 
operators enter subfile-name-1 as 
a password in the UNIQUE OPEN 
command to access a subfile. 





You can omit PASSWORD and define a password with the 
NAMEREC file utility. This allows you to limit subfile access to 
specific terminals and use multiple passwords to access the same 
subfile. A password defined in the NAMEREC utility does not cancel 
one defined in the data definition unless the passwords are the 
same. The IMS system support functions user guide, UP-8364 
(current version) describes password definition with the NAMEREC 
utility. 


You must define a password using either the PASSWORD clause or 
the NAMEREC utility; otherwise, terminal operators using UNIQUE 
cannot access the subfile. 


You use the subfile name to refer to the subfile in a number of 
places outside the data definition: 


@ keyword parameter DFILE in the ACTION section of the 
configuration; 


= keyword parameter FN in the password definition input to the 
NAMEREC file utility; 


= the defined-file-name parameter in action program function 
calls to defined record management; and 


s the defined-file-name field in the program information block for 
COBOL, BAL, and RPG Il action programs. 


The IMS system support functions user guide, UP-8364 (current 
version) describes configuration and the NAMEREC file utility. 
Action programs are discussed in the current versions of the IMS 
action programming in COBOL and basic assembly language (BAL) 
user guide, UP-9207 and the IMS action programming in RPG Il 
user guide, UP-9206. 
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Example 


8 12 

DEFINED FILE JOBFILE PASSWORD 
DEFINED RECORD EMPLOYEE 
DEFINED RECORD PAYDATA 
SUBFILE EMPFILE PASSWORD 
SUBFILE PAYFILE 


Defined file JOBFILE has two record types, EMPLOYEE and 
PAYDATA. To restrict access to PAYDATA, you define two subfiles, 
EMPFILE and PAYFILE. All terminal operators can access EMPFILE 
by using the subfile name EMPFILE as the password. On the other 
hand, only those terminals named in a NAMEREC utility password 
definition can access PAYFILE. 


3.55. IDENTIFYING RECORDS INCLUDED IN THE SUBFILE 
(CONTAINS CLAUSE) 


Purpose 


Format 


Defined-record-name-1 


Subrecord-name-1 


Coding rules 


Example 


Use the CONTAINS clause to name 
the defined records and subrecords 
included in this subfile. The format 
is: 





CONTAINS({defined-record-name-l}}, ee 
subrecord-name-1 subrecord-name-2 


Defined-record-name-1, defined-record-name-2,... name defined 
records included in this subfile. 


Subrecord-name-1, subrecord-name-2,... name subrecords included 
in this subfile. 


You can include only one entry for each defined record or any of its 
subrecords. Put entries in the same order as their corresponding 
defined record definitions appear in the data definition. Before you 
submit an entry for a defined record in a hierarchical file, you must 
have an entry for each of that record's direct ancestors. 


8 12 
DEFINED FILE PAYROLL 
DEFINED RECORD EMPLOYEE 
SUBRECORD EMPLOYEE-SUB1 
SUBFILE EMPFILE 

CONTAINS EMPLOYEE-SUB1 


Subfile EMPFILE consists of only one type of defined record, known 
by its subrecord name, EMPLOYEE-SUB1. 
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4. Data Definition Examples 


This section contains extended examples of how to use the data 
definition language. It includes examples of simple and hierarchical 
defined files, supplements, subfiles, and interrelated defined files. 
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4.1. EXAMPLE OF A SIMPLE DEFINED FILE 


Preview of 
example 


Source file 


Data definition 


Records delivered 


Action program record 
areas 


Figures 4-1 through 4-5 show the simple defined file EMPLS. 


EMPLS comes from indexed file EMPFILE, whose first few records 
are shown in Figure 4-1. Each record begins with a 21-character 
field that contains its record key. The record is EMPLOYEE-REC, and 
the key is EMPL-NAME. 


Figure 4-2 shows the data definition for defined file EMPLS. 


Figure 4-3 shows the first few EMPLS records UNIQUE lists at a 
terminal in response to a LIST command; Figure 4-4 shows how 
IMS delivers them to an action program. Each record contains 
identifier item EMP-NM and two other items, SSNO and DEPT- 
NAME. With UNIQUE, these item names appear as column headers 
at terminals. 


To access defined file EMPLS, you must provide a place in your 
action program to receive defined record EMPLOYEE. Figure 4-5 
shows COBOL, BAL, and RPG II action program descriptions of the 
record areas for receiving EMPLOYEE. In addition to the items in the 
defined record, you must describe a status byte for each item. (See 
5.4.) The prefix ‘S-’ in the COBOL action program corresponds to the 
prefix the data definition processor generates for each item status 
byte data name. 


NOTE: 
The data definition processor changes the level numbers in the 


COBOL description because it provides an I/O area for the defined 
file. 

















DADAAAAAAA3 993148 28PRODUCT I ONAAAASS 18 
ACKERMAN, GWENAAAAAAAA2 29587259MARKET INGAAAAA2Z 2041. 
ADAMS , BENAAAAAAAAAAAA 2 428968 344MARKET INGAAAAA4 829 


ALLEN, JAMESAAAAAAAAAAI9T7T4484730F FICESERVICES15548. 
ARTHUR , MON I CAAAAAAAAAB 67531675 LEGALAAAAAAAAAI 0901. 
BAINES , CHARL ESAAAAAAA1 8963479 8ACCOUNT I NGAAAA3 2342. 
BILKER ,HAROLDAAAAAAAA3 48978 885PRODUCT I ONAAAAS7TE96— 
BONDS ALL ISONAAAAAAAA2 285611 94QUALITYCONTROL48251. 
BROOKS , ELAINEAAAAAAAAIT7338959D EVELOPMENTAAA2 386 

BROOKS, JOHN 12931221 8MARKET INGAAAAA27 45 





Figure 4-1. Excerpt from EMPFILE, an Indexed Employee File 


SOURCE STATEMEN 


IDENTIFICATION DIVISION» 
PROGRAM-IDe BASIC-DATA-DEF « 
OATA DIVISIONg 
FILE SECTIONe 
FO EMPFILE, 
Bi =EMPLOYEE-RECe 
O02) EMPL-NAME 
02 SSNO 
C2 DEPT-NAME 
2 ENTRY 
OEFINITION DIVISION, 
DEFINED FILE EMPLS PASSWORD 
DEFINED RECORD EMPLOYEE 
FROM EMPLOYEE-REC 
ALLOW ADD ANO DELETE 
IDENTIFIER EMP-NM FROM EMPL -NAME 
ITEM SSNO 
ITEM DEPT-NAME 


Figure 4-2. Data Definition for Defined File EMPLS 


EMP -NM 
ABRAMS , MARK 
ACKERMAN, GWEN 


ADAMS, BEN 
ALLEN, JAMES 
ARTHUR,MONICA 
BAINES, CHARLES 
BILKER, HAROLD 
BONDS ,ALLISON 
BROOKS, ELAINE 
BROOKS, JOHN 


SSNO 
389314828 
229587259 
242898344 
197448473 
867531675 
189634798 
348978885 
228561194 
177338959 
129312218 
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DEPT -NAME 
PRODUCTION 
MARKETING 
MARKETING 
OFFICESERVICES 
LEGAL 
ACCOUNTING 
PRODUCTION 
QUALITYCONTROL 
DEVELOPMENT 
MARKETING 





Figure 4-3. First Few EMPLS Records, as Listed at a Terminal by UNIQUE 


ABRAMS . MARKAAAAAAAAAA3 893148 28PRODUCT | ONAAAA 
ACKERMAN , GWENAAAAAAAA2 2958725 9MARKET INGAAAAA 
ADAMS , BENAAAAAAAAAAAA2 4289834 4MARKET INGAAAAA 


ALLEN. JAMESAAAAAAAAAAIS7T4484730F FICESERVICES 


ARTHUR , MONI CAAAAAAAAAB 67531675 LEGA LAAAAAAAAA 
BAINES , CHARL ESAAAAAAAL 89634798ACCOUNT INGAAAA 
BILKER , HAROLDAAAAAAAA3 489788 85PRODUCT I ONAAAA 
BONDS, ALL | SONAAAAAAAA2 28561 194QUALITYCONTROL 
BROOKS , ELAINEAAAAAAAAI77338959D EVELOPMENTAAA 

OHNAAAAAAAAAAL 2931221 8MARKET INGAAAAA 


Figure 4-4. First Few EMPLS Records, as Delivered to an Action Program 





SPERRY UNIVAC OS/3 4-3 
IMS DATA DEFINITION AND UNIQUE 





EXAMPLE OF SIMPLE DEFINED FILE 





2 

WORK-AREA 

O62 EMPLS. 

03 EMPLOYEE. 
64 EMP-NM PIC X(21). 
64 SSNO PIC X(69). 
64 DEPT-NAME Pic X(14). 
S-EMPLOYEE. 
64 S-EMP-NM PIC X. 
84 $-SSNO PIC X. 
64 S-DEPT-NAME Pic X. 





a. Description of EMPLOYEE in COBOL action program 


10 16 


DSECT WORK AREA 

EQU ¥ 

DS CL21 EMPLOYEE NAME 

DS CL9 EMPLOYEE SOC SEC NO 

DS CL14 EMPLOYEE DEPT NAME 

DS Cc EMPLOYEE NAME STATUS BYTE 

OS C EMPLOYEE SOC SEC NO STATUS BYTE 
OS Cc EMPLOYEE DEPT NAME STATUS BYTE 


EXTENSION OR 
KEY OW RECOKD LINE COUNTER 
ADUHESS FIELD LENGTH 


NOT USED 





UP iciS, 1 


EMP INFO! 





























SEQUENCE 












































c. Description of EMPLOYEE in RPG II action program 





Figure 4-5. Action Program Descriptions of Defined Record EMPLOYEE 
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4.2. EXAMPLES OF HIERARCHICAL RECORDS IN DEFINED FILES 


Preview of 
examples 


Different descriptions of 
same defined file 


Reorganize/redetine 
files 


Records delivered 
and action 
program record 
areas 


Source file 


Parent-child 
relationship 


Figures 4-6 through 4-10 show parts of defined files and the data 
definitions needed to define: 


a an indexed file containing two record types; 
=" an indexed file containing a repeating group; and 
= ~~ two indexed files. 


In these examples, three different data definitions describe the same 
defined file. Although the defined file comes from three sources that 
differ in content and organization, there is no difference in: 


= the defined file delivered to the action program; or 


= the appearance of the defined file at the terminal when it is 
accessed through UNIQUE. 


You can reorganize source files and redefine defined files without 
changing your action programs or terminal operating procedures. 


Figures 4-11 and 4-12 show, for all three examples, how the 
defined file appears at a terminal through UNIQUE and how it is 
delivered to an action program. Figure 4-13 shows COBOL and BAL 
action program descriptions of record areas receiving the defined 
records. 


Parent-Child Defined Records Using Several Record Types as a 
Source 


Figure 4-6 shows the first few records in indexed file EMPFILE that 
defined records EMPLOYEE and DEPENDENT come from. Figure 4-7 
shows the data definition for defined file EMPLOYEES, which 
contains hierarchical records EMPLOYEE and DEPENDENT. The 
order of the records in EMPLOYEES matches the order of their 
sources in EMPFILE. 


: ; be 
There are several ways that parent and child defined records can 
related in files. (See 3.13.) In this example, the source (DEPENDENT- 
REC) of child record DEPENDENT directly follows the source 
(EMPLOYEE-REC) of DEPENDENT's parent record, EMPLOYEE. 
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BRAMS , MARKAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

BRAMS , MARKAAAAAAAAAAAB RAMS , JOANAAAAAAAAAA3 2699811 9SAAAAA 
CK ERMAN , GWENAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMARK ET ENGAAAAA 
DAMS , BENAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMA RK ET | NGAAAAA 
DAMS , BENAAAAAAAAAAAAAD AMS , BONN EAAAAAAAAA2 98 3454.2 9AAAAA 
DAMS , BENAAAAAAAAAAAAAD AMS , SARAAAAAAAAAAAA3 95886 29 TAAAAA 


RTHUR , MON | CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA L EGA LAAAAAAAAA 
RTHUR , MON I CAAAAAAAAAAR THUR , WAY NEAAAAAAAAA 1 288.6 234 BAAAAA 
AINES, 
AINES , CHARLESAAAAAAABAINES , CLAUD | AAAAAAAAG 3176551 4AAAAA 
AINES , CHARLESAAAAAAABAINES, JOSE PHAAAAAAAAE 2211896 3AAAAA 
AINES, 
ILKER 


Data definition 





ou 





IDENTIFICATION DIVISIONg 
PROGRAM-IDe EMPL-DEFe 
DATA DIVISION, 
FILE SECTIONe 
FO EMPFILE, 
01 EMPLOYEE-RECe 
02 EMP-NM 
02 FILLER 
O02 DEPT-NAME 
DEPENDENT-RECg 
C2. EMP-NM 
M2 DEP-NM 
02 OD-SSN 
02 FILLER 
DEFINITION DIVISION» 
DEFINED FILE EMPLOYEES 
DEFINED RECORD EMPLOYEE 
FROM EMPLOYEE-REC hee 
ALLOW ADD AND DELETE evils 
IDENTIFIER EMP-NM EMP-NM 
ITEM DEPT-NAME 
DEFINED RECORD DEPENDENT 


FROM DEPENDENT-REC Key is 
ALLOW ADD AND DELETE ( Emp-NM 
PARENT IS EMPLOYEE and 

& IDENTIFIER DEP-NM DEP-NM 


ITEM D-SSN 





Figure 4-7. Data Definition for Defined File EMPLOYEES 
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Parent-Child Defined Records Using a Repeating Group as a 
Source 


Source file Indexed file EMP-RG, shown in Figure 4-8, contains the same 
information as indexed file EMPFILE in Figure 4-6, but it is 
organized differently. A table within each employee record contains 
the dependent information. 


RAMS, KAAAAAAAAAA 
ABRAMS , JOANAAAAAAADAAAAAAAAA 3 26998119 
ee ACKERMAN , GWENAAAAAAAAMARKE T INGAAAAABB 
E ADAMS , BENAAAAAAAAAAAAMARKET INGAAAAAB 2 
= ADAMS » BONN I EAAAAAAAAAAAAAAAA2 98 345429 
: ADAMS , SARAADAAAAADDAAAAAAAAA 3 9 5886297 


BP ALLEN, JAMESAAAAAAAAAAOFFICESERVICES 8D 
ARTHUR , MON I CADAAAAAAAL EGA LAAAAAAAAA SB 2 
ARTHUR , WAYN EAAAAAAAAAAAAAAAA I 20862348 

a BAINES, CHARLESAAAAAAAACCOUNT I NGAAAAB 3 

SEBAINES , CLAUD Il AAAAAAAAAAAAAAAG 31765514 
BAINES, JOS EPHAAAAAAAAAAAAAAA 6 22118963 
BAINES, LESL 1 EAAAAAAAAAAAAAAAS 89259986 | 

CT IONAAAA 
SES 





Figure 4-8. Excerpt from EMP-RG, an Indexed File Containing a Repeating Group 





Data definition Figure 4~9 shows the data definition for defined file EMPLOYEES 
when the source is a repeating group, EMP-RG. 


SOURCE STATEMENT 


IDENTIFICATION DIVISIONg 
PROGRAM-ID6 EMPL-OEF-1 
DATA DIVISION» 
FILE SECTION® 
FD EMP-RGe 
Q1 EMPLOYEE-RECe 
02 EMP-NM PIC Xt2h)e 
02 OEPT-NAME PIC X(19)6 
02 COUNT PIC 9l2d5 
O02 DEP-ENTRY; 
OCCURS & TO 10 TIMES 
DEPENDING ON COUNT 
ASCENDING KEY IS DEP-NM» 
03 OEP-NM PIC Xt22)0 
03 FILLER PIC Xt7)— 
03 D-SSN PIC KI» 
DEFINITION DIVISION» 
DEFINED FILE EMPLOYEES PASSWORD 
DEFINED RECORD EMPLOYEE 
FROM EMPLOYEE-REC 
ALLOW ADD AND DELETE 
TOENTIFIER EMP-NM 


ITEM DEPT-NM FROM DEPT-NAME 
DEFINED RECORD OEPENDENT K 

FROM REPEATING GROUP DEP-ENTRY 

PARENT IS EMPLOYEE 

IDENTIFIER DEP-NM 

ITEM D-SSN 








Figure 4-9. Data Definition for Defined File EMPLOYEES, Derived from a Repeating 
Group 
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@ Parent-Child Defined Records Using Two Indexed Files as 
Sources 
Source files Figure 4-10c shows a third data definition for defined file 


EMPLOYEES. In this example, employee and dependent records 
come from sources that are in two different indexed files. Employee 
records come from EMPFILE (Figure 4-10a); dependent records 
come from EN-DEP (Figure 4-10b). Each employee record 
contributes a pointer (item ENTRY) that locates the set of dependent 
records that are its child records. 


File relationships Figure 4-10 shows the relationship of the two indexed files to each 
other and to defined file EMPLOYEES. 


LINC NOe SEQ, SOURCE STATEMENT 


ABRAMS .MARKAAAAAAAAAAI9B314828PRODUCT I ONAAAASS 189 eotul IDENTIFICATION DIVISIONe 
ACKERMAN , GWENAAAAAAAA2 2958725 9MARKETINGASAAA2 2841 Garo PROGRAM-IDe EMPL-DEF-25 
ADAMS . BENADAAAAAAAAAA2 4289834 AMARKETINGAAAAL 48297 nose peepee cat ause 


9occs FILE SECTIONe 
ALLEN, JAMESAAAAAAAAAAI 9744847 30F FICESERVICESI5549 a0705 FD EMPFILE, 
: : oGcu6 DL EMPLOYEE-REC™ 
THUR. MON \ 
ARTHUR MONI CAAAAAAAAAG 6753167 5LEGALAAAAAAAAAL BBD ee ASS EMP LD HARE rece eine 
BAINES , CHARLESAAAAAAA1 896347 98ACCOUNTINGAAAA32 942 Bune [2 SSNC PIC Xt9}y 
BILKER  HAROLDAAAAAAAA3 48978885 PRODUCTIONAAAAS 7698 
BONDS .ALLISONCAAAAAAA2 285611 94QUALITYCONTROL4B251 
BROOKS, ELAINEAAAAAAAAI77338959DEVELOPMENTAAA2 3866 


TGSLS P2 OEPT-NAME PIC xXC14)de 
runic C2 ENTRY PIC xtSiy 
BROOKS . JOHNAALAAAAAAAIT2Z93122 1OMARKETINGAALAA27454 


Out1l1 EN-DEP eo 

coc12 E-CEP-RECy 

00713 G2 ENTRY-NUMBER PIC KIS), 
cocia4 G2 DEP-NAME PIC X€Zlde 
Aoc1s G2 OSsno PIC KI9Ig 
MCT16 DEFINITION CIVISION, 


a. EMPFILE, alphabetic indexed file ea717 DEFINED FILE EMPLOYEES PASSWORD 


oocie DEFINED RECORD EMPLOYEE 


| ooc1s¢ FROM EMPLOYEE-REC 


oat2o ALLOW ADD AND DELETE 
oocel IDENTIFIER EMP-NM FROM ERPL-NAME 
cocz2 ITEM DEPT-NAME 
ept23 ITEM ENTRY HIODEN 
occas DEFINED RECGRG DEPENDENT 
. ee 225 DEP 
LOBO2KEITH KARENALAC AL cAr7343298818 meses ie og EMPL-NAME 
1OOB2KEITH, THOMASLAAA/7..4.4291849776 opf27 ‘ and 


1OOB5DOWNS. LAURACL LLL A07.329312651 coczé 8 
00029 x DEP-NAME 


S234 1 WINTERS CAROLAAAV 4159278894 
32342BAINES CLAUDIALC C42 74631765514 
32342BAINES  JOSEPHAAAA7A446 22116963 
32342BAINES LESLIEAAA 744489259906 
32344 LAWRENCE DONAAA ALAA 244789808 


c. Data definition for defined file EMPLOYEES 


b. EN-DEP, dependent data ordered by 
employee entry number 





Figure 4-10. Derivation of Defined File EMPLOYEES from Two Distinct Files Using Pointers 
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Records delivered 
to UNIQUE 


Identifiers 
and UNIQUE 


Records delivered 
to action programs 


Action program record 
areas 





Defined File Resulting from Different File Sources 


Figure 4-11 shows, for all three examples, the terminal display of 
EMPLOYEES in response to a UNIQUE LIST command. Lines 
beginning with: 


An asterisk contain item names that serve as column 
headers 


A period contain item values that make up a defined 
record occurrence 





Each dependent record's identifier consists of both employee name 
(its parent record's identifier) and dependent name, but UNIQUE 
replaces the employee name with a hyphen to conserve screen 
space. 


Figure 4-12 shows the first few defined records of defined file 
EMPLOYEES that IMS delivers to action programs. In response to 
each GET function call, IMS moves all defined record fields, plus one 
status byte per field, to the action program. 





Figure 4-13 shows the COBOL, BAL, and RPG Il action program 
descriptions of the record areas receiving parent (EMPLOYEE) and 
child (DEPENDENT) defined records. 








* EMP-NM DEPT-NAME 

* -DEP-NM D-SSN 
ABRAMS , MARK PRODUCTION 
- ABRAMS, JOAN 326898119 
ACKERMAN, GWEN MARKETING 
ADAMS ,BEN MARKETING 


-ADAMS BONNIE 298345429 


- ADAMS , SARA 395806297 
. ALLEN, JAMES OFFICESERVICES 
. ARTHUR, MONICA LEGAL 
- ARTHUR, WAYNE 128862348 
BAINES, CHARLES ACCOUNTING 
-BAINES,CLAUDIA 631765514 
-BAINES, JOSEPH 622119963 
-BAINES, LESLIE 489259986 
BILKER, HAROLD PRODUCTION 





Figure 4-11. First Few EMPLOYEES Records, as Listed at a Terminal by UNIQUE 







1 WORK-AREA. 























602 EMPLOYE. DSECT WORK AR 
03 EMPLOYEE. EQU : 
64 EMP-NM PIC X(21). DS CL21 EMPLOYE 
04 DEPT-NAME PIC X(14). DS CL14 EMPLOYE 
63 S-EMPLOYEE. EEMP#S DS c EMPLOYE 
64 S-EMP:NM PIC X. EDEPT#S DS c EMPLOYE 
84 S-DEPT-NAME PIC X. DEP EQU : 
03 DEPENDENT. EDEMP DS CL21 DEP-EMP 
04 EMP-NM PIC X(21). EDDEP DS CL21 DEP-DEP 
04 DEP-NM PIC X(21). EDSS DS CL9 DEP-DEP 
04 D-SSN PIC X(09). EDEMP#S DS C DEP- EMP 
03 S-DEPENDENT. _ EDDEP#S DS c DEP-DEP 
04 S-EMP-NM PIC X. —_-EDSS#S DS Cc DEP-DEP 
De eae ee - b. Description of EMPLOYEE a 
04 S-D-SSN PIC X. 





a. Description of EMPLOYEE and DEPENDENT in COBOL action program 





Figure 4-13. Action Program Descriptions 


UP-9209 











































PT-NAME ABRAMS , MARKAAAAAAAAAAA 
-SSN ACKERMAN , GWENAAAAAAAAN 
DDUCTION ADAMS , BENAAAAAAAAAAAAN 
26090119 ADAMS , BENAAAAAAAAAAAAL 
RKETING ADAMS , BENAAAAAAAAAAAAE 
RKETING ALLEN, JAMESAAAAAAAAAAL 
AESARA CS ARTHUR , MONI CAAAAAAAAAL 
95806297 

Brceeenyrars ARTHUR, MONI CAAAAAAAAAS 
eer BAINES, CHARLESAAAAAAAI 
aaeoaas BAINES , CHARLESAAAAAAAI 
SOUNTING BAINES , CHARLESAAAAAAAI 
31765514 BAINES, CHARLESAAAAAAAI 
12118963 BILKER, HAROLDAAAAAAAAI 
39259906 
DUCTION 


Figure 4-12. First Few EMPLOYE 


as Listed at a Terminal by UNIQUE 
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WORK DSECT WORK AREA 

EMPL EQU : 

-EEMP DS CL21 EMPLOYEE NAME 

-EDEPT DS CL14 EMPLOYEE DEPARTMENT NAME 

EEMP#S DS C EMPLOYEE NAME STATUS BYTE 

EDEPT#S DS c EMPLOYEE DEPARTMENT NAME STATUS BYTE 
DEP EQU ; 

_EDEMP DS CL21 DEP-EMPLOYEE NAME 

-EDDEP os CL21 DEP-DEPENDENT NAME 

-EDSS DS CL9 DEP-DEPENDENT SOC SEC NO 

-EDEMP#S DS c DEP-EMPLOYEE NAME STATUS BYTE 
-EDDEP#S DS c DEP-DEPENDENT NAME STATUS BYTE 
-EDSS#S DS c DEP-DEPENDENT SOC SEC NO STATUS BYTE 



















b. Description of EMPLOYEE and DEPENDENT in BAL action program 








Figure 4-13. Action Program Descriptions of Defined Records EMPLOYEE and DEPENDENT 
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IMS DATA DEFINITION AND UNIQUE 


EXAMPLES OF HIERARCHICAL DEFINED FILES 














ABRAMS , MARKAAAAAAAAAAP RODUCT | ONAAAA 

ABRAMS , MARKAAAAAAAAAAAB RAMS , J OANAAAAAAAAAA3 26998119 
ACKERMAN, GWENAAAAAAAAMARKET ING 

ADAMS , BENAAAAAAAAAAAAMA RK ET ENGAAAAA 


ALLEN, JAMESAAAAAAAAAAOFFICESERVICES 

ARTHUR , MON I CAAAAAAAAAL E GA LAAAAAAAAA 

ARTHUR, 

BAINES, CHARLESAAAAAAAACCOUNT INGAAAA 

BAINES , CHARLESAAAAAAABAINES , CLAUD 1 AAAAAAAAE6 31765514 
BAINES , CHARLESAAAAAAABAINES , JOSE PHAAAAAAAAG 22116963 
BAINES , CHARLESAAAAAAABAINES, LESL | EAAAAAAAAS 89259986 
BILKER, 





Figure 4-12. First Few EMPLOYEES Records, as Delivered to an Action Program 
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INPUT FORMAT SPECIFICATIONS 
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id DEPENDENT in BAL action program 
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c. Description of EMPLOYEE and DEPENDENT in RPG II action 





rogram 





‘f Defined Records EMPLOYEE and DEPENDENT 
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EXAMPLE OF SUPPLEMENTS 





4.3. EXAMPLE OF SUPPLEMENTS iN A DEFINED FILE 


Preview of 
example 


Source records 


Pairs of records 


Record keys 


IMS using 
record type 


Accessing records with 
@ pointer 


Figures 4-14 through 4-19 show defined file DEPENDENTS, defined 
record DEP-RECORD, and its supplements. 


The data definition for DEPENDENTS in Figure 4-16 shows the use 
of supplements in a_ defined file. Each defined record in 
DEPENDENTS comes from three different records on disk. Two of 
these records come from indexed file DEPFILE, shown in Figure 
4-14. Another record comes from indexed file EMPFILE, shown in 
Figure 4-15. 


The records of indexed file DEPFILE occur in pairs: two records for 
JOAN ABRAMS, two for BONNIE ADAMS, etc. The first record 
supplies the primary part of DEP-RECORD; the second supplies a 
supplement. 


Both records have keys in the same character positions, 1 through 
22. The keys’ values differ only in character position 22. The first 
record contains the space character, while the second contains the 
number 1, as specified in the FILL KEY TO ‘1’ clause in 
SUPPLEMENT DEP-PART-1. These values put the records in 
ascending order and identify the record type as either DEPENDENT- 
REC or DEPENDENT-REC-TRAILER. 


IMS adds, deletes, and displays both types of records together. It 
uses the record type to act upon the records as a pair. If the first 
record is missing, IMS ignores the second. If the second record is 
missing, IMS supplies spaces for item EMPLOYEE. For instance, 
IMS ignores employee records for GWEN ACKERMAN and JAMES 
ALLEN (see Figure 4-15) because they have no corresponding 
dependent records. 


The second file, EMPFILE, contains only one type of record, 
EMPLOYEE-REC, which supplements defined record DEP-RECORD. 
You access EMPLOYEE-REC with a pointer. As a record in an 
indexed file (EMPFILE), EMPLOYEE-REC contains a record key. IMS 
builds a pointer from NAME-EMPL in record DEPENDENT-REC- 
TRAILER. It then searches record EMPLOYEE-REC to: 


=™ = ~match the pointer against record key EMPL-NAME, and 
. locate the secondary part of the record. 


If it does not find an EMPLOYEE-REC record, IMS supplies zeros for 
item SSNO in the defined record supplement. 











File relative 
record number 
as pointer 


Records delivered 


Action program record 
areas 


If EMPFILE were a nonindexed file, EMPLOYEE-REC would contain 
no record key. Instead, the pointer would be a file relative record 
number, built from a numeric field corresponding to NAME-EMPL in 
DEPENDENT-REC-TRAILER and matched against a numeric field 
corresponding to EMPL-NAME in EMPLOYEE-REC. 


Figures 4-17 and 4-18 show the first few DEPENDENTS records 
listed at a terminal by UNIQUE and delivered to an action program. 


Figure 4-19 shows COBOL, BAL, and RPG II descriptions of the 
record areas receiving DEP-RECORD. 





BRAMS , JOANAAAAAAAAAAA 3 26898 1 1 SAAAAAAAAAAAA 
BRAMS , JOANAAAAAAAAAA TABRAMS , MAR KAAAAAAAAAA § 


DAMS , BONN | EAAAAAAAAAA2 983.4542 DAAAAAAAAAAAA 


DAMS , BONNI EAAAAAAAAA ADAMS , BENAAAAAAAAAAAA 
DAMS , SARAAAAAAAAAAAAA3 95.88 6 29 TAAAAAAAAAAAA 
DAMS , SARAAAAAAAAAAAA 1 ADAMS , BENAAAAAAAAAAAA | 
RTHUR , WAYNEAAAAAAAAAA 1 288.6 2 34 BAAAAAAAAAAAA © 
NEAAAAAAAAA 1 ARTHUR ,M 





Figure 4-14. Indexed File with Two Records for Each Dependent (DEPFILE) 





Figure 4-11 
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ABRAMS , MARKAAAAAAAAAA3 96 314828PRODUCT I ONAAAAS5 189 
ACKERMAN , GWENAAAAAAAA2 2958725 9MARKET INGAAAAA2 2041 
| ADAMS , BENAAAAAAAAAAAA2 4289634 4MARKET I NGAAAAAS8 297 


ALLEN, JAMESAAAAAAAAAAI974484730F FICESERVICESI5548 
ARTHUR , MON | CALAAAAAAAB 67531675 LEGALAAAAAAAAA 1 6801 
BAINES , CHARLESAAAAAAA1 896347 98ACCOUNT INGAAAA3 2342 
BILKER, HAROLDAAAAAAAA3 48978885PRODUCT I ONAAAAS 7690 
BONDS , ALL 1 SONAAAAAAAA2 28561194QUALITYCONTROL48251 
BROOKS , ELAINEAAAAAAAA177338959DEVELOPMENTAAA2 3866 
BROOKS , JOHNAAAAAAAAAAI 2931221 @MARKET INGAAAAA2Z7 454 


— 





Figure 4-15. Excerpt from EMPFILE, an Indexed Employee File 


E ATEMENT 


IDENTIFICATION DIVISION» 
PROGRAM-IDe SEC-PART-DEF, 
DATA DIVISION» 
FILE SECTION 
FO OEPFILE» 
O01 DEPENDENT-RECe 
C2 DEP-NAME PIC Xt22)6 
02 RCD-TYPE PIC Xe 
C2 OSSNO PIC Xt9)y 
C2 FILLER PIC XtA2de 
DEPENDENT-REC-TRAILER« 
02 DEP-10 PIC XtZ1de 
02 TYPE-RCD : PIC Xs 
D2 NAME-EMPL PIC Xt21de 
EMPFILE, 
EMPLOYEE-RECe 
C2 EMPL-NAME PIC X(21)6 
M2 $sNo PIC X(9)» 
02 DEPT-NAME PIC XC14)0 
C2. ENTRY PIC Xt5)4 
DEFINITION DIVISION» 
DEFINED FILE DEPENDENTS 
DEFINED RECORD DEP-RECORD 
FROM DEPENDENT-REC 
ALLOW ADD ANO DELETE 
IOENTIFIER DNAME FROM OEP-NAME 
ITEM DSSNC 
SUPPLEMENT DEP-PART~1 
FROM DEPENDENT-REC-TRAILER 
FILL KEY TO ‘1° ASSUMES CONTROLLED ROLE IN UPDATE 
ITEM EMPLOYEE FROM NAME-EMPL 
SUPPLEMENT DEP-PART~2 
FROM EMPLOYEE-REC 
POINTER IS EMPLOYEE 
ITEM SSNO 





Figure 4-16. Data Definition for Defined File DEPENDENTS Showing Supplements 
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* DNAME DSSNO EMPLOYEE SSNO 
ABRAMS. JOAN 326098119 ABRAMS. MARK 309314828 
ADAMS BONNIE 298345429 ADAMS.BEN 242898344 
ADAMS .SARA 395866297 ADAMS .BEN 242898344 
ARTHUR, WAYNE 128862348 ARTHUR. MONICA 667531675 





Figure 4-17. First Few DEPENDENTS Records, as Listed at a Terminal by UNIQUE 





ABRAMS , J OANAAAAAAAAAA3 2609811 9ABRAMS , MARKAAAAAAAAAA3 8931482 
ADAMS , BONN I EAAAAAAAAA2 98 3.45429 ADAMS , BENAAAAAAAAAAAA2 62898344 
ADAMS , SARAAAAAAAAAAAA3 9 59.8629 7ADAMS , BENAAAAAAAAAAAA?2 42898344 
ARTHUR , WAYNEDAAAAAAAA 12886 2348ARTHUR, MON I CAAAAAAAAABE6 7531675 









Figure 4-18. First Few DEPENDENTS Records, as Delivered to an Action Program 
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EXAMPLE OF SUPPLEMENTS 





8 12 
81 WORK AREA. 
82 DEPENDE. 
83 DEP-RECORD. 

64 DNAME PIC X(21). 
84 OSSNO PIC X(89). 
04 EMPLOYEE PIC X(21). 
84 SSNO PIC X(69). 
S-DEP-RECORD. 
84 S-DNAME PIC X. 
64 $-DSSNO PIC X. 
O4 S-EMPLOYEE PIC X. 
84 $-SSNO PIC X. 


Description of DEP-RECORD in COBOL action program 


10 


DSECT WORK AREA 
EQU 

DS DEPENDENT NAME 

DS DEPENDENT SOC SEC NO 

DS EMPLOYEE NAME 

DS EMPLOYEE SOC SEC NO 

DS DEPENDENT NAME STATUS BYTE 

DS DEPENDENT SOC SEC NO STATUS BYTE 
DS EMPLOYEE NAME STATUS BYTE 

DS EMPLOYEE SOC SEC NO STATUS BYTE 


Description of DEP-RECORD (labeled DP-REC) in BAL action program 


FILE DESCRIPTION SPECIFICATIONS 


FICE PHOT ESSING MODE ;eRERMIN OE. 
LANE COUNTEH 
1aut 











NAME (6 
LABEL EIT 
OH NAME OF 
USER OF IGE 

ROUTING 





CONTINUAT! 
OPTION 











FIELD DESCRIPTION 





FIELD LOCATION 


PE cranacten 


9 
z 
é 
3 
6 
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POSITION 





POS) TION 


‘O-OPTIONAL 
INDICATOR OR ** 
STACKER SELECT 
DATA FORMAT P BLA 
S CONTROL LEVEL 


CHARACTER 


& RECORD IDENTIFYING 
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Description of DEP-RECORD in RPG 11 action program 


Figure 4-19. Action Program Descriptions of Defined Record DEP-RECORD i 
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EXAMPLE OF SUBFILE 


SPERRY UNIVAC 0S/3 4-12 
IMS DATA DEFINITION AND UNIQUE 








4.4. EXAMPLE OF A SUBFILE 


Data definition 


Records delivered 


Action program record 
areas 


Figure 4-20 shows how you can use a subfile definition to restrict 
access to a defined file. Both this data definition and the one shown 
in Figure 4-2 use the same source data (from indexed file EMPFILE 
in Figure 4-1). They both also make defined file EMPLS1 available to 
action programs and, through UNIQUE, to terminal operators. 


As in Figure 4-2, you can access data through defined file name 
EMPLS1. You can also access subrecord SUB-EMPS, but only 
through subfile name SUBFIL. Figures 4-21 and 4-22 show that, for 
SUBFIL, IMS delivers only two items, employee name and social 
security number, to terminals and action programs. Their item 
names, used as column headers by UNIQUE, change from EMP-NM 
to NAME-OF-EMP and from SSNO to SSNUMBER. 


Figure 4-23 shows COBOL, BAL, and RPG Il action program 
descriptions of the record areas receiving SUB-EMPS. 


SOURCE STATEMENT 


IDENTIFICATION DIVISION® 
PROGRAM-IDe SUB-DEFe 
DATA DIVISION, 
FILE SECTIONe 
FD EMPFILE» 
C1 EMPLOYEE-RECe 
O02 EMPL-NAME PIC 
02 SSNO PIC 
02 DEPT-NAME PIC 
G2. ENTRY : PIC 
DEFINITION DIVISION» 
DEFINED FILE EMPLS1 PASSWORD 
DEFINED RECORD EMPLOYEE 
FROM EMPLOYEE-REC 
ALLOW ADO. AND DELETE 
IDENTIFIER EMP-NM FROM EMPL-NAME 
ITEM SSNO 
ITEM DEPT-NAME 
SUBRECORD SUB-EMPS 
IDENTIFIER NAME-OF-EMP FROM EMP-NM 
ITEM SSNUMBER FROM SSNO ; . 
SUBFILE SUBFIL PASSWORD Figure 4-21. First F 
CONTAINS SUB-EMPS : 





Figure 4-20. Subfile Definition of SUBFIL, Restricting Access to Defined File 
EMPLS1 































a2 1 10:16 
81 WORK-AREA. 
62 SUBFIL. DSECT WORK AR 
63 SUB-EMPS. EQU 
04 NAME-OF-EMP PIC X(21). DS ClL21 EMPLOY 
84 SSNUMBER PIC X(89). DS CLO EMPLOY 
83 $-SUB-EMPS. DS c EMPLOY 
84 S-NAME-OF-EMP PIC X. ESSNO#S DS c EMPLOY 
64 S-SSNUMBER PIC X. 





b. Description of SUB-EMPS (I 


a. Description of SUB-EMPS in COBOL action program 





Figure 4-23. Action Program 


“ NAME-OF-EMP 
ABRAMS , MARK 
ACKERMAN, GWEN 


ADAMS, BEN 
ALLEN, JAMES 
ARTHUR ,MONICA 
BAINES, CHARLES 
BILKER,HAROLD 
BONDS ,ALLISON 
BROOKS, ELAINE 
BROOKS, JOHN 


Figure 4-21. First Few SUBFIL Records, as Listed at a Terminal by UNIQUE 
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SSNUMBER 

399314828 
229587259 
242898344 
197448473 
967531675 
189634798 
348978885 
228561194 
177338959 
129312218 


















1 10 16 

WORK DSECT WORK AREA 

SUBREC EQU $ 

ENAME DS Ci21 EMPLOYEE NAME 

ESSNO DS CLI EMPLOYEE SOC SEC NO 

ENAME#S DS c EMPLOYEE NAME STATUS BYTE 
ESSNO#S DS C EMPLOYEE SOC SEC NO STATUS BYTE 


b. Description of SUB-EMPS (labeled SUB-REC) in BAL action program 


Figure 4-23. Action Program Descriptions of Subrecord SUB-EMPS 
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BRAMS , MARKAAAAAAAAAA 3 £ 
CKERMAN , GWENAAAAAAAA2 i 
DAMS , BENAAAAAAAAAAAA2 4 
LLEN, JAMESAAAAAAAAAA 1 ¢ 
RTHUR , MONI CAAAAAAAAAB E 
AINES ,CHARLESAAAAAAA LE 
ELKER , HAROLDAAAAAAAA 3 4 
ONDS , ALL I SONAAAAAAAA2 2 
ROOKS, ELAINEAAAAAAAAI7 
ROOKS , JOHNAAAAAAAAAA 1 2 


Figure 4-22. First Few SUBFIL Recc 
to an Action Program 
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c. Description of SUB-EMPS in RPG II action prog: 
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EXAMPLE OF SUBFILE 





ABRAMS , MARKAAAAAAAAAA3 8931482 
ACKERMAN , GWENAAAAAAAA2 2958725 
ADAMS , BENAAAAAAAAAAAA2 4289834 


ALLEN, JAME SAAAAAAAAAAI 9744847 
ARTHUR , MON | CAAAAAAAAAB 6753167 
BAINES , CHARLE SAAAAAAA1 8963479 
BILKER, HARO LDAAAAAAAA3 4897888 
BONDS , ALL | SONAAAAAAAA2 2856119 
BROOKS , ELA INEAAAAAAAA17733895 
BROOKS , JOHNAAAAAAAAAA 1 2931221 





Figure 4-22. First Few SUBFIL Records, as Delivered 
to an Action Program 
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INPUT FORMAT SPECIFICATIONS 





RECORD IDENTIFICATION 
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SEQUENCE 
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INDICATOR OR ** 


OPTIONAL 
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POSITION 
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FIELO DESCRIPTION 


® cONnTROL LeveL 











Po ba i.. 
! elaia 
EMPT INE 25 








ill 


| 
1 


ie al 


eas 











f 






































c. Description of SUB-EMPS in RPG Il action 
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EXAMPLE OF INTERRELATED DEFINED FILES 








4.5. EXAMPLE OF INTERRELATED DEFINED FILES 


Source files 


Defined files 


Defined records 
and supplements 


Changing 
the records 


Data definitions 


Records delivered 


Figures 4-24 through 4-29 show how you can use multiple defined 
files and supplements to access data in different ways. Figure 4-24 
shows the source records that come from indexed files EMPFILE 
AND COFILE. Both files contain the same data, but that data is 
keyed in different ways. 


For defined file EMPLOYEES, you receive data alphabetically 
according to employee name. The file contains defined record 
EMPLOYEE. For defined file COMPANY, you can get the data 
according to division name, department name, and employee name. 
The file contains hierarchical records CO-DIVISION, DEPARTMENT, 
and EMPLOYEES. 


Defined record EMPLOYEE has the same source (EMPLOYEE-REC) 
as supplement EMP-SUPP in defined file COMPANY. Supplement 
EMP-1 has the same source (COMPANY-REC) as defined records 
CO-DIVISION, DEPARTMENT, and EMPLOYEE in defined file 
COMPANY. In supplement EMP-1, the POINTER clause has the 
same effect as an ITEM clause. DIV-NM, DEPT-NM, and EMP-NM 
(used as identifiers for the records in defined file COMPANY) are 
carried down to supplement EMP-1, where their data can be 
changed. 


According to the data definitions, you can add, delete, or make 
changes to EMPLOYEE, but these changes do not affect the data you 
will get for supplement EMP-SUPP. You cannot add, delete, or make 
changes to any of the defined records or supplements in defined file 
COMPANY. COMPANY is used for retrieval purposes only. 


Figure 4-25 shows the data definitions for defined files EMPLOYEE 
and COMPANY. 


Figures 4~26 through 4-29 show how UNIQUE lists the first few 
EMPLOYEES and COMPANY records at a terminal and how IMS 
delivers them to action programs. 











ACKERMAN, GWENAAAAAAAAD IVES TONS 3MARKET INGAAAAA2 294144325081 
ADAMS , BENAAAAAAAAAAAAD IVES LOND 3MARKET INGAAAAA4 829744381081 
ALLEN, JAMESAAAAAAAAAAD II VISIT ONQSOFFICESERVICES15548AA195681 
ARTHUR, MONI CAAAAAAAAAD I VIS LOND SL EGALAAAAAAAAA 1 8981444956019 
BAINES, CHARLESAAAAAAADI VIS 1 ONO7ACCOUNT I NGAAAA3 234244378081 
BILKER, HAROLDAAAAAAAADIVIS1ONB1PRODUCT 1 ONAAAAS7696AA2000811_ 
BONDS ALL I SONAAAAAAAADIVISTONLIQUALITYCONTROL462514A2758014 
BROOKS, ELAINEAAAAAAAADI VIS 1 ONDBDEVELOPMENTAAA2 386 6AA3080816. 
KS, JOHNAAAAAAAAAAD 1 VIS 1ONO3MARKETING \27454\A400881 


. Excerpt from EMPFILE, an indexed employee file 


ss 


DIVISTONSIPRODUCT | ONAAAAABRAMS , MARKAAAAAAAAAAS § 18 9AA2 288861 
DIVISTONBIPRODUCT | ONAAAABILKER , HAROLDAAAAAAAAS 76 9BAA2 80881 


SC DIVISTON®SIPRODUCT | ONAAAABUNDY , ELL ENAAAAAAAAAAI 6987AA2 16881 


DIVISIONBIPRODUCT I ONAAAACANE , GERALDAAAAAAAAAA3 9865 4AA2 48081 
DIVISTONBIPRODUCT I ONAAAACARSON, MELAN I EAAAAAAA2 893144215801 
DIVISTON®IPRODUCT I ONAAAACONNELL, THEODOR EAAAAAI1956AA2358081 
DIVISTON®IPRODUCT | ONAAAACUMMINGS , DONALDAAAAAA3 47 1804A268881 
DIVISTONGLPRODUCT I ONAAAADAVIS, JENNI FERAAAAAAAS 1246AA2865801 
DIVISTONOLPRODUCT I ONAAAADAWSON , CYNTH | AAAAAAAAS 3897AA2 35801 


b. Excerpt from COFILE, an indexed company file 





Figure 4-24. Indexed Files EMPFILE and COFILE 


IDENTIFICATION DIVISIONS 

PROGRAM-IDe MULT-DATA-DEFle 

DATA DIVISION, 

FILE SECTIONS 

FD EMPFILE, 

01 EMPLOYEE-RECe 
02 EMPL-NAME PIC X(2))e 
02 DIVISION-NAME PIC xXCifds 
OZ DEPT-NAME PIC X(14)6 
"2 EMP-NR PIC X(59y 
02 SALARY-AMT PIC 9152996 
02 YRS-EDUC PIC 9(2)y 
COFILEs 
COMPANY -REC, 
02 DIVISION-NAME PIC X10)6 
C2. DEP T-NAME PIC XC14)e 
02 EMPL-NAME PIC XZ) de 

DEFINITION DIVISION, 

DEFINED FILE EMPLOYEES PASSWORD 

DEFINED RECORD EMPLOYEE 
FROM EMPLOYEE-REC 
ALLOW ADD ANO DELETE 
IDENTIFIER EMP-NM FROM EMPL-NAME 
TTEM DIV-NM FROM DIVISION-NAME ALLOW CHANGE MUST ADD; 
ITEM DEPT-NM FROM DEPT-NAME ALLOW CHANGE MUST ADD 
ITEM EMP-NR MUST ADD 
ITEM SALARY FROM SALARY-AMT ALLOW CHANGE 
ITEM Y-ED FROM YRS~E£OUC 

SUPPLEMENT EMP-1 
FROM COMPANY-REC 
POINTER IS OIV-NM, DEPT-NM, EMP-NM 
ASSUMES CONTROLLED 


SS SESS eso 3 


a. Defined file 


8 
LIND NOe SEQe SOURCE STATEMENT 


oo701 IDENTIFICATION DIVISION, 
Mo7u2 PROGRAM-IDe MULT-OATA~OEF Ze 
Om 3 DATA DIVISION, 
fu*D4 FILE SECTIONS 
00*us FO COFILE®s 
Oocus OL COMPANY-RECy 
cota? O02 DOIVISION-NAME KOLMIS 
oosoe O02 DEPT-NAME XC14 0 
nor09 C2 EMPL-NAME K(21de 
norip EMPFILE» 
Ooc1t EMPLOYEE-RECe 
bel bes 02 EMPL-NAME KC2106 
1u713 O02 OIVISION-NAME Xt1Ode 
Anis M2 DEP T-NAME X(14)6 
oocrs C2) ~EMP-NR Xt5)— 
oorie O02 SALARY-AMT 9ISIVI9e 
90517 02 YRS-EDUC V2» 
cutie DEFINITION DIVISIONg 
Go719 OEFINED FILE COMPANY 
occ20 DEFINED RECORD CO-OIVISION 
oot21 FROM CONTROL BREAK IN COMPANY-REC 
00722 IDENTIFIER DIV-NM FROM OITVISION-NAME 
9u723 DEFINED RECORD DEPARTMENT 
oor24 FROM CONTROL BREAK IN COMPANY-REC 
cores PARENT IS CO-DIVISION 
0°26 IDENTIFIER DEPT-NM FROM OEPT-NAME 
90727 OLFINED RECORD EMPLOYEE 
oocze FROM COMPANY-REC 
coc29 PARENT IS DEPARTMENT 
00730 IDENTIFIER EMP-NM FROM EMPL-NAME 
coc31 SUPPLEMENT EMP-SUPP 
M732 FROM EMPLOYEE-REC 
NGT33 POINTER IS EMP-NM 
Oors4 ASSUMES NEUTRAL 
o0c35 ITEM EMP-NR 
00036 ITEM SALARY FROM SALARY-AMT 

037 TE 


b. Defined file COMPANY 





Figure 4-25. Data Definitions for Related Defined Files EMPLOYEES and COMPAN 
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EMP -NM DIV-NM DEPT-NM SALARY Y-ED 
ABRAMS ,MARK DIVISIONO1 PRODUCTION 220.08 12 
ACKERMAN , GWEN DIVISION@3 MARKETING 325.68 16 


ADAMS, BEN OIVISIONB3 = MARKETING 381.08 17 
ALLEN, JAMES OIVISIONG9 OFFICESERVICES 195.98 12 
ARTHUR MONICA DIVISION®5 LEGAL 495.86 19 
BAINES CHARLES DIVISION67 ACCOUNTING 376.08 12 
BILKER, HAROLD DIVISION@1 PRODUCTION 288.08 11 
BONDS ALLISON DIVISIONI1 QUALITYCONTROL 275.08 14 
BROOKS ELAINE DIVISIONBS8 DEVELOPMENT 368.68 16 
BROOKS, JOHN DIVEISIONO3 MARKETING 408.00 18 





Figure 4-26. First Few EMPLOYEES Records, as Listed at a Terminal by UNIQUE 


° DIV-NM 

* -DEPT-NM 

“ --EMP-NM SALARY Y-ED 
DIVISIONB1 


~PRODUCTION ‘ 
- - ABRAMS , MARK 226.88 


DIVISTONOL 

- PRODUCTION 
--BILKER, HAROLD 
DIVISIONBI 
-PRODUCTION 

-- BUNDY ELLEN 
DIVISTON®I 

- PRODUCTION 

-- CANE, GERALD 





Figure 4-27. First Few COMPANY Records, as Listed at a Terminal by UNIQUE 
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EXAMPLE OF INTERRELATED DEFINED FILES 




















BRAMS , MARKAAAAAAAAAAD I VIS EONS IPRODUCT I ONAAAAS5189AA228. 
CKERMAN , GWENAAAAAAAAD I VIS TONS 3MARKET INGAAAAA2 204144325. 
DAMS , BENAAAAAAAAAAAAD LV 1S LONG 3MARKET INGAAAAAS 829744381. 


LLEN, JAMESAAAAAAAAAADIVISTONGIOFFICESERVICESI5548AA195. 
PARTHUR, MONI CAAAAAAAAAD I VEST ONOSLEGALAAAAAAAAAI BBG 1AA495. 
AINES , CHARLESAAAAAAADIVISIONG7TACCOUNT INGAAAA3 23 42AA378. 
ELKER, HAROLDAAAAAAAAD I VIS LONB1PRODUCT I ONAAAAS 76 9BAA2 0B. 
ONDS , ALL ISONAAAAAAAADIVISTONTIQUALITYCONTROL46251AA275. 
ROOKS, ELAINEAAAAAAAAD I VIS FONSBDEVELOPMENTAAA2 3866AA3 80. 
ROOKS , JOHNAAAAAAAAAAD I VIS 1 ONO 3MARKET INGAAAAA2 745 4AA4 88. 





Figure 4-28. First Few EMPLOYEES Records, as Delivered to an Action Program 





1S 
_ DIVISTON®1PRODUCTIONAAAA 
IVISTONBIPRODUCT 1 ONAAAAABRAMS , MARKAAAAAAAAAAS 518944228. 9012 
DIVISION®1 


DIVISIONB1PRODUCT I ONAAAA 
DIVISTON®IPRODUCT I ONAAAABILKER, HAROLDAAAAAAAAS 7698604209. 8011 
IVISIONSE 
IVESTON®SIPRODUCT 1 ONAAAA 
DIVISTONOIPRODUCT | ONAAAABUNDY, ELL ENAAAAAAAAAA1 698744210. 0012 
DIVISIONS! 
DIVISIONS IPRODUCT I ONAAAA 





Figure 4-29. First Few COMPANY Records, as Delivered to an Action Program 
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5. The Data Definition Processor 


5.1. EXECUTING THE DATA DEFINITION PROCESSOR 

Characteristics After writing your data definition, you must submit it to the data 
definition processor. The processor, whose module name is DT3DF, 
is an IMS utility program that: 


a creates a data definition record in the named record 
(NAMEREC) file; and 


B produces a printed description of the defined file (5.4) and a 
diagnostic listing (5.5). 


Figure 5-1 shows this process. 


DATA Dare 


DEFINITION 
(TI 
per eh PROCESSOR 





Figure 5-1. Data Definition Processing 
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Storing multiple defined 
files 


Initializing NAMEREC 


Job control stream 
elements 





You can store multiple defined files in the same NAMEREC file, but: 


= you can create these multiple files only through separate runs 
of the data definition processor; and 


= you cannot execute the data definition processor while IMS is 
accessing NAMEREC. 


You must initialize the NAMEREC file before executing the data 
definition processor for the first time. You can _ initialize the 
NAMEREC file with the NAMEREC file utility or as part of the 
configuration process. Both are described in the current version of 
the IMS system support functions user guide, UP-8364. Any time 
you reinitialize the NAMEREC file, you must recompile all data 
definitions. 


The job control stream to execute the data definition processor 
consists of: 


= PARAM statements (5.2); 
= ~§=6other job control statements (5.3); and 


a source statements (3.1 through 3.55). 


5.2. DATA DEFINITION PROCESSOR OPTIONS 


PARAM statement 
format 


PARAM statement 
errors 


To use specific data definition options, you can present parameters 
to the data definition processor through the PARAM job control 
statement. Its format is: 


// PARAM parameters 

You put PARAM statements directly after the EXEC job control 
statement (// EXEC DT3DF) in the execution job control stream. The 
data definition processor prints these statements on the first page of 
the diagnostic listing. If there is a PARAM statement format error or 
an illegal parameter: 

m the system console receives a message; and 


s the data definition run terminates. 

















Single-spaced 
listing 


Katakana 
characters 


Source 
listing 
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List Options 
Format The format is: 
// PARAM LST=(spec-l,..., spec-n) 
You can substitute one or more of the following options for spec- 
1,...,8pec-n: 
Resolving Sr —s—_— it 
references Activates the ambiguity mode of res 
After the entry is resolved, rather than ending with 
the last entry in the division, the search for duplicate 
references in the data definition continues through 
the other divisions. 
Sequence eae . : ; 
checking Inhibits source item sequence number checking (in 


columns 1 through 6). This prevents abnormal 
termination of the data definition processor due to 
out-of-sequence statements. 


Produces a_ single-spaced diagnostic and source 
listing. If you omit this parameter, you get a double- 
spaced listing. If you do not request a source 
program listing, the processor produces a single- 
spaced diagnostic listing only. 


Allows Katakana character set for defined file, 
subfile, defined record, identifier, and item names. 
For more details on the Katakana character set, 
see the IMS system support functions user guide, 
UP-8364 (current version). 


_ Produces source program listing. If you supply no 
PARAM statements, this is the default. 
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Naming a source file 


Format 


Program-name 


File-name 


Example 


Allowing copy library 
input 


File-name 


Example 





Source and Copy Library Input Options 


When your data definition source statements are stored in a disk or 
diskette file, you name the source file by specifying the PARAM 
statement: 


// PARAM IN=program-name/file-name 


Program-name is a 1- to 8-character name for your source data 
definition program. This is the name on the PROGRAM-ID statement 
in the identification division. 


File-name is a 1- to 8-character name identifying the file that 
contains your source data definition program. You must include this 
name in an LFD job control statement. (See Figure 5-2b.) When you 
omit file-name, the data definition processor assumes your source 
program is stored in the system source file, $Y$SRC. You don’t need 
a device assignment set when the source program is filed in 
SYSSRC. 


// PARAM IN=PAYROLLI/PAYFILE 


You can allow copy library input by specifying the PARAM 
statement: 


// PARAM LIN=file-name 


File-name is a 1- to 8-character name identifying your COPY library. 
You must include this name in an LFD job control statement. (See 
Figure 5-2.) When you omit file-name, the data definition processor 
assumes your copy library is named COPYS. You supply the COPY 
element-name in your source data definition program through the 
COPY clause in the data division. (See Figure 3-2.) 


// PARAM LIN=PAYFILE 


5.3. EXECUTION RUN STREAMS 


Sample job control 
streams 


Figure 5-2 shows two sample job control streams for executing the 
data definition processor: 











UP-9209 SPERRY UNIVAC OS/3 5-5 
IMS DATA DEFINITION AND UNIQUE 


EXECUTING THE DATA DEFINITION PROCESSOR 








JOB DATADF, ,C808 

DVC 28 // LFD PRNTR 

OPTION DUMP 

DVC 5@ // VOL DS9999 // LBL NAMEREC // LFD ISAMNR 
WORK1 

WORK2 

WORK3 

EXEC DT3DF 


source cards 


source cards 


a. Input entered from job control stream 


JOB DATADF, ,CO98 

DVC 28 // LFD PRNTR 

OPTION DUMP 

DVC 58 // VOL DS9999 // LBL NAMEREC // LFD ISAMNR 
DVC 58 // VOL DS9999 // LBL IMSSRC // LFD PAYFILE 
DVC 58 // VOL 089999 // LBL COPYLIB // LFD COPYLI 
WORKI 

WORK2 

WORK 3 

EXEC DT3DF 

PARAM IN=PAYROLLI/PAYFILE,LIN=COPYLIB,LST=(L.S) 


b. input entered from source file 





Figure 5-2. Sample Job Control Streams to Execute the Data Definition Processor 
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EXECUTING THE DATA DEFINITION PROCESSOR 


Coding 
requirements 


Job control 
stream input 


Source file 
input 


Coding rules 





. The data definition processor requires COOO hexadecimal bytes (50K 


decimal bytes) in main storage. Always include a device assignment 
set for the NAMEREC file and specify ISAMNRF as the file name on 
the LFD statement. You must also assign three work files. 

In Figure 5-2a: 

™ source statements are embedded in the job contro! stream; 

= a double-spaced diagnostic and source listing is assumed; and 
s there is no copy library input. 


In Figure 5-2b: 


= the data definition source program, PAYROLL1, is stored in 
PAYFILE (IN parameter); 


a a single-spaced listing is requested (LST parameter); and 


= a copy element used in the source program is stored in 
COPYLIB (LIN parameter). 


If you use SYS$SRC as the file name on the // PARAM IN statement, 
you do not need to include the DVC, VOL, LBL or LFD job control 
statements for a source file. If the file name for your copy library is 
COPYS, you can omit the LIN parameter, but you still need a device 
assignment set with COPY$ as the file name on the LFD statement. 
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@ 5.4. DATA DEFINITION OUTPUT LISTING 
Contents The data definition processor produces a printed output listing that 
contains: 


= a listing of the source input (your data definition); 


= a COBOL description of the defined file when it successfully 
creates a data definition record; and 


m™ diagnostic messages (5.5) when it detects errors and cannot 
create a data definition record. 


Example Source input listings for example data definitions appear in 
source listings Section 4. 

Sample COBOL Figure 5-3 shows the COBOL description of defined file 
description DEPENDENTS, described in Figure 4-16. To match a COBOL action 


program accessing the defined file, the processor describes: 
= each defined record as a COBOL group item; and 
= = ~= one _item status byte for each elementary item defined. 


@ Item status The processor generates each item status byte data name by 
bytes prefixing the data name of the corresponding elementary item with 
‘S-’. During online processing, IMS tests for the completeness and 
validity of data transfer after retrieving a record. IMS uses the item 
status byte data name to access each item’s status byte. The 
processor changes the level numbers in the COBOL description 
because it provides an I/O area for the defined file. 


Compilation The last two lines of output contain the statement DATA 

information DEFINITION COMPLETE, compilation time figures, and the 
statement SUCCESSFUL COMPILATION or UNSUCCESSFUL 
COMPILATION. 
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THE FOLLOWING IS THE COBOL DESC 
U2 DEPENOESs 
wsoeeseeun ane te 
* DEFINED RECORD * 
eoeueseeocaoeoe eu des 
03 DEP-RECORD 
O% ONAME 
04 DSSNO 
O48 EMPLOYEE 
0% SSNO 
®@ THE DEFINED RECORD WILL AUTOM 
U3 $-DEP-RECORD 
US  S-ONAME 
04 S-DSSNO 
04 S-EMPLOY 
O48 S-SSNO 


* 
. 


s¢ 
Ld 
s¢ 


001667 NAMEREC 
SECPAR OATA OEFINITION COMPL 
UPSI SETTING = 00 


RIPTION OF THE DEFINED FILE DEPENDE® 


X(OLZ 106 
X10UND) » 
XCOG21 05 
X10L09)4 
ATICALLY INCLUDE ONE STATUS BYTE FOR EACH ELEMENTARY ITEM DEFINED ABOVE® 
a 
PIC Xe 
PIC Xo 
EE PIC Ke 
PIC Xe 


ETE START 19:49:82 END 29:5u309 
SUCCESSFUL COMPILATION 





Figure 5-3. COBOL Description of Defined File DEPENDENTS 


5.5. ERROR PROCESSING BY THE DATA DEFINITION PROCESSOR 


Error checking 


Data division 
rules 


Definition 
division 
rules 


Diagnostic 
message 
contents 


When processing your input, the data definition processor checks 
for syntactical errors and issues diagnostics. If it finds any errors, 
the processor does not create a data definition record. 

For the data division of your input, the processor: 

= applies extended COBOL rules; 

= applies the COBOL reserved word list; and 

= issues COBOL diagnostics. 

For the definition division, the processor applies both standard 
COBOL rules and its own rules. (See Appendixes A and B.) When it 
finds any rule violations, it issues its own diagnostics. See Appendix 


C for a listing of these diagnostics. 


Each diagnostic message contains, in this order: 


the processor-generated line number that has the 
error; 


the diagnostic severity code; 


the diagnostic number; and 


the diagnostic message text. 
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Severity codes 


Sample outputs 


Abnormal termination 
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Diagnostic severity definitions are: 


Changed 


issued when you omit or incorrectly use a character, 
word, clause, entry, or statement in your source 
program. The processor ignores the statement and 
continues analyzing the remainder of your source 
program. It does not create a data definition record. 


Uncorrectable 


issued when the processor detects a source language 
error that causes it to delete a character, word, 
clause, entry, or statement from the source program. 
Compilation continues, but other errors can result 
because of the deleted item. The processor does not 
create a data definition record. 





Figure 5-4 shows the output from several unsuccessful runs of the 
data definition processor. 


If the data definition processor terminates abnormally and issues no 
diagnostic messages, the problem with your data definition could 
possibly be: 


= you omitted a required POINTER clause from a supplement 
definition; or 


= you misspelled a defined-record-name or subrecord-name in a 
CONTAINS clause. 
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LINES SuC ERROR 
oo00se u O14 
o00se uv 139 


ocose ui 180 


LINE® SVC ERROR 
90020 ore 
00020 139 
00023 
00025 
00025 


00026 


O 
O 
O 
O 
O 
O 
O 


LIMES S¥C ERKOR 
00035 161 


00036 363 


5-10 








DIAGNOSTIC MESSAGE 
SYNTAX REQUIRES ITEM-NAME/DATA-NAME», TOTAL INVALID. 
~SUSPEND CHECKING INVALID SOURCE STATEMENT Om THIS LINE. 


RESUME CHECKING SOURCE STATEMENTS OM IMIS LIME. 


OIAGNOSTIC MESSAGE 

SYNTAX REQUIRES DEFINED-RECORD@NAMEs DIVISION INVALIDe 
“SUSPEND CHECKING INVALID SOURCE STATEMENT ON THIS LINES 
PRESUME CHECKING SOURCE STATEMENTS ON THIS LINES 

SYNTAX REQUIRES DEF INED@RECORD@NAMEs DIVISION INVALID, 
“SUSPEND CHECKING INVALID SOURCE STATEMENT ON THIS LINEs 


“RESUME CHECKING SOURCE STATEMENTS ON THIS LINEs 


OIAGMOSTIC MESSAGE 
CHANGE TO NEUTRAL SUPPLEMENT 3S ILLEGAL. 


AOD U0 NEUTRAL SUPPLEMENT IS TELEGAL, 


DIAGNOSTIC MESSAGE 

FILE EMPFILE HAS NO OATA RECORD. 

TLLEGAL CHARACTER DETECTED IN O}e 

REFERENCE TO EMPLOYEE*SREC CANNOT AE RESOLVEDe 
REFERENCE TO EMPeNR INVALIO} 


SYNTAX REQUIRES ITEM=DEFINITION, FXIT PROGRAM INVALID. 


THE DATA DEFINITION RECORD COULD NOT BE CREATED. ERROR TESTING WAS NOT COMPLETED. 
PLEASE CORRECT ANN RECOMPILES 


MULTDA 


DATA DEFINITION COMPLETE 
UPSI SETTING = a0 


star? 20:53:26 END 20:53:60 


UNSUCCESSFUL COMPILATION 


Figure 5-4. Data Definition Processor Listings from Unsuccessful Runs 


DhOOOOCCO 


DOOCOCO0000 














PART 3. UNIQUE 
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6. Introduction to UNIQUE 
6.1. SUMMARY OF UNIQUE COMMANDS 


The UNIQUE commands are: 





Initiates the UNIQUE transaction and opens a dialog with a file. 


CLOSE 


Ends the UNIQUE transaction. 





Displays the contents of a record. 





Selects the next identifier from the most recent DISPLAY, DELETE, 
ADD, or CHANGE command and performs the same function. 





Displays a record, which you can then delete by entering the OK 
command. 





Completes an update function - DELETE, ADD, or CHANGE. 
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_ CANCEL 


Cancels an update command - DELETE, ADD, or CHANGE. 





Initates a series of inputs and responses that result in adding a 
record to the file. 





CHANGE 


Initates a series of inputs and responses that result in changing a 
record. 





Lists all or selected portions of a file and performs statistical 
functions. 





Displays the next screenful of data from the previous LIST or DETAIL 
command. 





| DETAIL 


Gives a secondary listing without interrupting LIST command 
processing. 





Displays the format of records in the defined file, the most recent 
LIST and DETAIL commands, and any outstanding DISPLAY, 
DELETE, ADD, or CHANGE command. 


The UNIQUE commands are described in Section 7 with examples of 
their use. 
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6.2. PASSWORDS AND UNIQUE 


Need to access To access a defined file with UNIQUE, you must know the password 
defined files for that file. You use the password in the OPEN command. There are 
two ways to create passwords: 


Defining in data 1. You can define a password in the data definition (3.7). In that 

definition case, the password is the same as the defined file name. When 
you define a password in the data definition, all configured 
terminals can use that password. 


Defining with 2. The IMS administrator can define a password with the 

NAMEREC utility NAMEREC file utility. The administrator can restrict a password 
to specific terminals and can change passwords, even voiding a 
password that was defined in the data definition. (The 
NAMEREC file utility is described in the IMS system support 
functions user guide, UP-8364 (current version).) 


6.3. UNIQUE DIALOG 


A UNIQUE dialog is a series of commands and responses dealing 

UNIQUE transaction with a particular defined file. You can have several dialogs with 
different files in the same UNIQUE transaction. The first OPEN 
command you enter starts the UNIQUE transaction and also opens a 
dialog with a defined file. Additional OPEN commands close the 
dialog with the current defined file and open dialogs with other 
defined files, but the UNIQUE transaction does not end until you 
enter a CLOSE command. 
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7. UNIQUE Commands 


7.1. UNIQUE FORMATS AND RULES FOR ENTERING 


COMMANDS 
Display and hard-copy ‘The format for most UNIQUE commands is the same whether you 
formats enter them from a display or hard-copy terminal. We use display 
terminals in most of our examples. Two commands, ADD and 

CHANGE, have different formats for display and hard-copy 

terminals, and we give examples for both formats. 

Uppercase and You can enter UNIQUE commands in either uppercase or lowercase 
@ lowercase letters letters. We use lowercase letters and reverse print (white on black) 
for all input in our examples so you can easily differentiate between 
input and output. UNIQUE output is always displayed in uppercase. 
Rules for entering These general rules apply to all UNIQUE commands. Additional rules 
commands are given with individual commands where they apply: 

1. Move cursor to home and clear the screen or press the start- 
of-entry key before entering any UNIQUE command. When 
using an IBM 3270 terminal, enter all commands from home 
position. 

2. Enter at least one space between words except when other 
punctuation is required, such as commas, semicolons, and 
equal signs. 

3. When you enter an identifier, value, or specification that 
contains blanks or special characters, enclose it in apostrophes. 
When a name contains an apostrophe, you must enter two 
apostrophes. For example, enter the name Barry’s Garden Mart 
as ‘Barry’’s Garden Mart’. 

4. Include decimal points and commas in numeric values where 
required. Do not enclose numeric values in apostrophes. 

S Additional Appendix A gives more rules that apply to UNIQUE formats and 


rules commands. 
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7.2. DATA USED IN OUR EXAMPLES 


Defined file access The files you access with UNIQUE 
are defined files, described in Part 
2. When we use the term fi/e or 
files in the UNIQUE descriptions, 
we always mean defined files. 


Example defined The examples in this section use 

files two defined files - an inventory 
file, INVFILE, and a sales file, 
SALES. The data definitions for 
both INVFILE and SALES are in 
Appendix E. The passwords for 
both files are the same as their file 
names. 





INVFILE File 


INVFILE is a simple defined file containing one type of defined 
record, called I-REC. INVFILE also has a subrecord, PRODUCT, 
which is a variant of |-REC. You access PRODUCT records through a 
subfile called STOCK. 





INVFILE file and 


!-REC record 1-REC FIELDS 


STOCK subfile and 


PRODUCT Subracord SUBRECORD PRODUCT FIELDS 
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SALES File 


SALES is a hierarchical file containing three kinds of records. The 
record names are CUSTOMER, INVOICE, and INV-ITEM. For each 
CUSTOMER record, there are one or more INVOICE records, and for 
each INVOICE record, there are one or more INV-ITEM records. We 
call this relationship parent-child. CUSTOMER is a parent to 
INVOICE, INVOICE is a child to CUSTOMER and a parent to INV- 
ITEM, and INV-ITEM is a child to INVOICE. 


CUSTOMER record 


INVOICE record 


| \NV-ITEM RECORD FIELDS 


INV-ITEM record 





Record fields UNIQUE uses the record fields as column headers when it displays 
the contents of records. 
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Identifiers and Item Names 


The first field in a record (STOCK-NO in INVFILE; CUST-NAME, INV- 
NO, or NMBR in SALES) is its identifier. The other record fields are 
called item-names. When you want to display or update a record, 
you name its identifier. To display or update a child record, like 
INVOICE or INV-ITEM, you also name the identifiers of records 
above it in the hierarchy. In the record display, UNIQUE links the 
parent record identifiers to the child record identifier. We give 
examples of this with the individual commands. 





TO DISPLAY A PARENT RECORD 


DISPLAY 
‘CENTURY 
HARDWARE’ 


CHANGE 
TENTURY 
HARDWARE’, 
500850 
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7.3. OPENING A UNIQUE DIALOG 


Function The OPEN command initiates a 
UNIQUE transaction and opens a 
dialog with a file. You can issue 
another OPEN command at any time during the transaction to 
access a different file. Its format is: 





Format OPEN password 


Password password 
Is the password assigned to the file by the IMS administrator. It 
may be the actual name of the file or it may be a different 
name. 


Example The command: 


open invfile 


initiates a UNIQUE transaction and requests access to the inventory 
OPEN COMPLETE file, INVFILE. UNIQUE responds with an OPEN COMPLETE message, 
message giving the date and time in hours, minutes, and seconds. After the 
input and response, the screen display looks like this: 


aww bee eee 
ie aii OI 


OPEN COMPLETE 81/12/24 15:12:54 









Entered with another To save time, you can transmit the OPEN command together with 

command one other UNIQUE command, but you do not receive the OPEN 
COMPLETE message. We show examples of this with the DISPLAY 
LIST, and SHOW commands. (See 7.5, 7.16, and 7.25.) 


, 


7.4. ENDING THE UNIQUE TRANSACTION 





Function The CLOSE command terminates 
the UNIQUE transaction. Its format 
is: 


Format CLOSE 
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7-6 
IMS DATA DEFINITION AND UNIQUE 
OPEN AND CLOSE COMMANDS 
CLOSE COMPLETE UNIQUE responds with a CLOSE COMPLETE message, giving the @ 
message 





date and time in hours, minutes, and seconds. After the input and 
response, the screen display looks like this: 


Example iia 
SCREEN #..... 
7-2 


CLOSE COMPLETE 81/12/24 





16:24:65 


Ending a dialog You do not need to use the CLOSE command to end a dialog with 


one file before starting a dialog with another file. When you issue 


another OPEN command, UNIQUE closes the first file and allows 
you to access the second file. 
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7.5. DISPLAYING A RECORD 


Function 


Format 


Example 


Parent-child identifier 


Example 


The DISPLAY command displays 


DISPLAY 





the contents of a specific record or 
records, with column headings. Its 
format is: 





DISPLAY identifier-l[;identifier-2]... 


Displaying a Parent Record 


Suppose you want to display a customer record in the SALES file. 
You can issue the OPEN command, followed immediately by a 
DISPLAY command: 


open sales 


display ‘century hardware’ 


After the input and response, the screen looks like this: 


« Bias 
7-3 


open sales 
display ‘century hardware’ 

CUST-NAME CUST-ID ADDRESS CITY ST ZIP 
CENTURY HARDWARE 5-60814 11588 AIRPORT BLVD KALAMAZ00 MI 67598 
PHONE 

958-447-5312 





Displaying a Child Record 


When you want to display a child record, you give the parent record 
identifier first, followed by a comma and the child record identifier. 
(This is not the same as giving two identifier names, which we'll 
cover next.) Suppose you want to display invoice 500850 for 
Century Hardware. Enter: 


display ‘century hardware’ ,590859 
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Using semicolons 


Example 


Embedded NEXT 
command 


Example 
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The input and response look like this on the screen: 


SCREEN 
7-4 


display ‘century hardware’. 588858 





INV-NO INV-DATE TOTAL-SALES TAX-AMT 
CENTURY HARDWARE , 5080850 8/13/81 8,358.08 366.68 
INV-GROSS 

8.718.088 


Displaying More than One Record 


You can request more than one record with the same DISPLAY 
command. Key in a semicolon after each identifier except the last. 


The maximum number of identifiers you can specify on one 
DISPLAY command is 10. 


Suppose you want to display Century Hardware, Barbara’s 
Greenery, and Barry's Garden Mart. Key in: 


display ‘century hardware’; ‘barbara’’s greenery’; ‘barry'’’s 
garden mart’ 


When you name more than one record, UNIQUE displays the records 
one at a time. UNIQUE embeds a NEXT command in the screen 
display for each record except the last: 


SCREEN 
7-5 


display ‘century hardware’; ‘barbara’'s greenery’: barry’ 's garden mart 


ONEXTO 
CUST-NAME CUST-1D ADDRESS CITY ST ZIP 
CENTURY HARDWARE 5-68814 11580 AIRPORT BLVD KALAMAZOO Mi 675998 


PHONE 
958-447-5312 


When you press the TRANSMIT key, UNIQUE displays the next 
record. 
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Replacing Identifiers with Hyphens 

When you request more than one child record, you don’t have to 

repeat the names of the parent records. For all records except the 

first, enter hyphens in place of the parent record names. Also omit 
Example the commas. For instance, suppose you want to see items 01, 02, 

and 03 on invoice 500850 for Century Hardware. Enter: 

display ‘century hardware’ ,590850,01;--02;--63 


For items 02 and O03, the first hyphen represents Century Hardware, 
the second represents invoice 500850. 


The input and response look like this: 


Bei. 
7-6 


‘century hardware’ .568858.01:--82;- 













display -83 





ANEXTO 
NMBR ITEM-CODE DESCRIPTION QUAN 
CENTURY HARDWARE ,5096850,61 193019 SAW-CIRCULAR 61N 6 


UNIT-PRICE TOTAL 
25.58 153.08 


7.6. SELECTING THE NEXT RECORD 


Function The NEXT command selects the 
next identifier from the most recent 
DISPLAY, DELETE, ADD, or 
CHANGE command. The function UNIQUE performs is determined 
by that previous command. Its format is: 





Format NEXT 


As we showed in the last example for the DISPLAY command, 
Embedded NEXT UNIQUE includes the NEXT command in the screen display when 
command you enter more than one identifier. You simply press the TRANSMIT 

key (or CTRL/C on a hard-copy terminal) to display the next record. 
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Sometimes you don’t want to display the next record immediately. 

For instance, you might decide to enter another UNIQUE command 
Displaying next such as LIST or SHOW. You can display the next record later by 
record later keying in the NEXT command. However, you must not enter another 

DISPLAY, DELETE, ADD, or CHANGE command in between. 


Example For example, if you want to see the next record from the last 
DISPLAY command and the DISPLAY screen is no longer in effect, 
key in: 
next 


Because still another record remains to be displayed, UNIQUE 
embeds another NEXT command in the response: 


me SCREEN 
6 7-7 











ONEXTO 
NMBR ITEM-CODE DESCRIPTION QUAN 
CENTURY HARDWARE , 580856, 02 122048 TOOLBOX-231N 6 
UNIT-PRICE TOTAL 
33.99 283.94 





When you press the TRANSMIT key, UNIQUE displays the third 
record you requested: 


SCREEN FF 
7-8 


NMBR (TEM-CODE OESCRIPTION QUAN 
CENTURY HARDWARE ,5689850,83 573636 SCREW DRIVER-PHSOIN 24 
UNIT-PRICE TOTAL 

1.95 46.86 





DISPLAY COMPLETE Notice that NEXT does not appear on the screen because 03 is the 
message last identifier. However, you can enter the NEXT command and 
receive a DISPLAY COMPLETE message: 


SCREEN 
7-9 


DISPLAY COMPLETE 81/12/24 16:54:66 
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7.7. DELETING A RECORD 


Function 


Format 


Update state 


Example 


OK command 






The DELETE command lets you DELETE 
delete a record after viewing its 
contents. UNIQUE displays the 
record you specify on the DELETE command and then deletes it after 
you issue an OK command. Its format is similar to the DISPLAY 
command: 





DELETE identifier-1l[;identifier-2]... 

The DELETE command places your terminal in an update state. 
While the terminal is in this state, UNIQUE does not accept any 
other commands until you issue an OK or CANCEL command. 


Deleting One Record 


Suppose you want to delete item 03 on invoice 500850 for Century 
Hardware. Key in: 


delete ‘century hardware’ ,500859, 93 


The input and response look like this on the screen: 


. Bae . 
* BAY 


delete ‘century hardware’, 568858, 63 





NMBR ITEM-CODE DESCRIPTION QUAN 
CENTURY HARDWARE 588856, 63 573636 SCREW DRIVER-PHSIN 24 
UNIT-PRICE TOTAL 


1.95 46.89 





DELETE COMPLETE 81/12/24 16:57:24 
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Example 


Example 









Canceling a Deletion 


If you decide not to delete the record after seeing its contents, issue 
the CANCEL command to cancel the deletion: 


SCREEN 
7-12 


DELETE CANCELLED 81/12/24 16:57:24 





Deleting More than One Record 


As with the DISPLAY command, you can request more than one 
record at a time with the same DELETE command. The maximum 
number of identifiers you can specify on one DELETE command is 
10. To delete invoice items 02 and O3, key in: 


delete ‘century hardware’ ,580858,82; --83 


UNIQUE displays the first record you request. The NEXT command is 
not embedded in the response to the DELETE command, but is 
embedded in the response to the OK or CANCEL command. The 
sequence of inputs and responses to delete both records is: 


SCREEN 
7-13 


delete ‘century hardware’, 588858 .862: --83 








NMBR ITEM-CODE DESCRIPTION QUAN 
CENTURY HARDWARE 588858, 82 122848 TOOLBOX-23iN 6 
UNIET-PRICE TOTAL 

33.99 263.94 

-NEXTO 
DELETE COMPLETE 81/12/24 16:54:29 
NMBR FTEM-CODE DESCRIPTION QUAN UNIT-PRICE TOTAL 
93 573636 SCREW DRIVER-PHOIN 24 1.95 46.88 

UNIT-PRICE TOTAL 

1.95 46.88 


DELETE COMPLETE 81/12/24 16:56:05 
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7.8. AUTHORIZING AN UPDATE FUNCTION 


Function The OK command _ authorizes 
UNIQUE to execute the updating 
function you requested with the 
previous command. You always need to use it with the DELETE 
command and with the hard-copy form of the ADD and CHANGE 
commands. You use it under certain circumstances with the display 
form of the ADD and CHANGE commands. Its format is: 





Format OK 


Completion message UNIQUE responds with a message giving you the date and time the 
update was completed. 


Hard-copy terminal Before keying in the OK command from a hard-copy terminal, you 

requirement must press the carriage return key and the line feed key. If you fail 
to do this, UNIQUE cancels the update operation and returns an 
INPUT ALTERED message to the terminal. You must then reenter 
the DELETE, ADD, or CHANGE command. 


Embedded NEXT When you specify more than one record on the DELETE, ADD, or 

command CHANGE command, UNIQUE embeds a NEXT command in the 
response to the OK command. See the DELETE, ADD, and CHANGE 
commands for examples of the OK command. 


7.9. CANCELING AN UPDATE FUNCTION 


Function The CANCEL command cancels the B. SAACEL 
update function you requested with 7 
the previous DELETE, ADD, or 
CHANGE commana. Its format is: 





Format CANCEL 


Cancellation message UNIQUE responds with a message giving you the date and time of 
the cancellation. 





UP-9209 


SPERRY UNIVAC 0S/3 7-14 
IMS DATA DEFINITION AND UNIQUE 











OK AND CANCEL COMMANDS 





Hard-copy terminal 
requirement 


Embedded NEXT 
command 








Before keying in the CANCEL command from a hard-copy terminal, 
you should press the carriage return key and the line feed key. If you 
fail to do this, UNIQUE returns an INPUT ALTERED message. In 
either case, UNIQUE cancels the update operation. 


When you specify more than one record on the DELETE, ADD, or 
CHANGE command, UNIQUE embeds a NEXT command in the 
response to the CANCEL command. See the DELETE, ADD, and 
CHANGE commands for examples of the CANCEL command. 
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7.10. ADDING A RECORD 


Function The ADD command initiates a 
series of inputs and responses that 
result in adding a record to the file. 

Update state The ADD command places your terminal in an update state. While 
your terminal is in this state, UNIQUE does not accept any other 
commands except OK or CANCEL. 





Two formats There are two different formats for this command - the display 
format and the hard-copy format. The entire update sequence is 
different for the two formats, so we treat them as two separate 


commands. 
Display format use You can use the display format at any display terminal except an 
Hard-copy format use IBM 3270 display station. The hard-copy format is intended for hard- 


copy terminals, but you can use it at any terminal. 


7.11. DISPLAY FORMAT OF THE ADD COMMAND 


Description In the display format of the ADD command, you identify the record 
you want to add. UNIQUE displays an update format, allowing you to 
fill in values for the items you want to add in the record. Its format is 
similar to the DISPLAY and DELETE commands: 


Format ADD identifier-l[;:identifier-2]... 

Parent-child identifier As with the DISPLAY and DELETE commands, an identifier may be 
made up of parent and child identifiers (separated by commas), and 

Requesting multiple you can request up to 10 records on the same ADD command. See 

records the DISPLAY and DELETE commands for examples of these 
functions. 

Update format display In response to the ADD command, UNIQUE displays column headers 


and update formats (containing asterisks) for the items in the record. 
You overwrite the update formats with values and transmit the 
screen. If UNIQUE finds no errors, it adds the record to the file and 
displays an ADD COMPLETE message. 
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Example 


Transmitting update 
screen 


Update validation 


Error display 








Suppose you want to add a record to the inventory file, INVFILE. 
First, enter the OPEN command for INVFILE, then the ADD 
command. You need not issue a CLOSE command for the SALES file 
before starting a dialog with INVFILE. The input and response look 
like this: 


SCREEN Re 
7-14 

open invfile 

add 111111 


STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 


LILIL1 Tht tree tect e eee cece cece eesneee ences ve ote 
cost PRICE REORDER-POINT ORDER-QTY KILOS GRAMS 


ee eee ae tee 









Loc YTD-USAGE 


Press the tab key to move the cursor to the beginning of each 
update format, enter a vaiue for each item in the new record, and 
transmit the screen. Be sure to overwrite leading asterisks in each 
item with blanks or zeros. UNIQUE does not accept items with an 
asterisk in the first position. Place the cursor between the special 
characters < > to transmit the entire screen: 


SCREEN [Pe 
7-15 


open invfile 
add 111211 





STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 
TOTTI :;~ RRR cos 12: 


cost PRICE REORDER-POINT ORDER-QTY KILOS GRAMS 


Oa Oem On oO 


Loc YTD-USAGE 


UNIQUE checks the values you enter against criteria established in 
the data definition - type of data (alphabetic, alphanumeric, or 
numeric), field length, and value ranges. If you enter invalid data or 
a value outside the allowable range, UNIQUE displays question 
marks in place of the update format for the invalid item. In this case, 
the quantity-on-hand value is incorrect because it extends beyond 
the length of the update format: 
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SCREEN 
: 7-16 


add 114111 












STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 
111111 SAW CIRCULAR I2IN 22.22? 
cost PRICE REORDER-POINT ORDER-QTY KILOS GRAMS 
89.658.88 68,886.56 88,898 68,858 852 616 
Loc YTD-USAGE 
E435 $8,898 
<> 
Correcting errors Overwrite the error field with the correct value and transmit the 


screen again. lf all the values are now correct, UNIQUE adds the 
new record to the file and responds with an ADD COMPLETE 
message: 


SCREEN FF 
7-17 


add 111111 





STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 
weeeel SAW CURCULAR 121N 
cost PRICE REORDER-POINT ORDER-QTY KILOS GRAMS 
68,050.00 69,086.58 80,099 08.050 852 619 


Loc YTD-USAGE 
£435 60.080 


Pod 
° 

a - 
s <N> 
. 






add 111111 
AOD COMPLETE 82/81/85 18:35:88 
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Omitting items 


Nonrequired items 


MUST ADD items 





When you omit an item, the result depends on if that field is defined 
as a MUST ADD item in the data definition for this file. If the item is 
not defined as MUST ADD, UNIQUE simply adds the record to the 
file without a value for the omitted item: 












SCREEN 
7-19 
add 111111 
STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 
non AE 
cost PRICE REORDER-POINT ORDER-QTY KILOS GRAMS 


68,058.68 66.686 5B 


Loc YTD-USAGE 
e435] te eee 


<N> 


00.050 Mmmm e852 Mig 18 | 


SCREEN 
7-20 





add 111111 
ADD COMPLETE 82/61/85 19:35:35 


However, if the item was defined as MUST ADD, UNIQUE displays 
question marks in place of the update format for the omitted item. 
You must supply the missing item before UNIQUE can add the new 
record to the file: 


re SCREEN & 
Sons 7-21 


se 
ae 
Se 





add 111111 

STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 

St s+ feireutar 1250) 
REORDER-POINT ORDER-QTY KILOS GRAMS 


cost PRICE 
ne Ca Gam oe oo 


Loc YTD-USAGE 


<N> a 
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OK command 


SCREEN 
7-22 


add 111111 











STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 
111111 SAW CIRCULAR 121N 60.286 
COST PRICE REORDER-POINT ORDER-QTY KILOS GRAMS 
27,72? 2? 80,086.50 08,098 68,950 852 818 
Loc YTD-USAGE 

£435 setae 

<> 


During the ADD sequence, you can enter the OK command to add 
an incomplete record, as long as you have entered all MUST ADD 
items. For instance, after receiving an error on the quantity on hand, 
Suppose you decide to add the record without an entry for that field 
(assuming that the quantity on hand is not a MUST ADD item). This 
is the sequence of inputs and responses: 


SCREEN 
7-23 


add 411111 





STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 
ill111 SAW CIRCULAR L2IN 72.272? 

cost PRICE REORDER-POINT ORDER-QTY KILOS GRAMS 
88,859.00 08.886.58 89,098 80,856 652 818 
Loc YID-USAGE 

£435 06,8008 

oS 

OK 


SCREEN 
7-24 


add 111111 
ADD COMPLETE 82/81/65 10:36:18 
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Add nonzero data 
for MUST ADD items 


Canceling update 


If you enter the OK command and a MUST ADD item is missing, the 
ADD command is canceled: 


SCREEN 
7-25 


add 111111 





STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 
lL SAW CIRCULAR 12IN 86.260 
cost PRICE REORDER-POINT ORDER-QTY KILOS GRAMS 
72-277 ..72 08.886.58 66.125 08.058 652 818 
Loc YTD-USAGE 
: 435 06,608 

at 

- <> 

° 


= a SS 
my 6 






add 111111 


ADD CANCELLED 82/81/85 16:38:88 


Note that you must add nonzero data for MUST ADD items. 
UNIQUE does not display question marks on the update format 
when you enter zeros for a MUST ADD item. However, when you 
enter the OK command, UNIQUE cancels the ADD command. 


You can also enter the CANCEL command at any time during the 
ADD sequence to cancel the addition of the record: 


SCREEN 
7-27 


ADD CANCELLED 





18/35/16 


82/61/65 





7.12. HARD-COPY FORMAT OF THE ADD COMMAND 


Description 


Format 


Parent-child identifier 


In the hard-copy format of the ADD command, you identify the 
record you want to add and also enter values for the items you want 
to add in the record. The format is: 


ADD identifier [item-name=]value[:[item-name=]value]... 


As in the display format, an identifier may be made up of parent and 
child identifiers (separated by commas). See the DISPLAY command 
for examples. Unlike the display format, you cannot request more 
than one record on the same hard-copy format of the ADD 
command. 














UP-9209 SPERRY UNIVAC O0S/3 7-24 
IMS DATA DEFINITION AND UNIQUE 








ADD COMMAND 





Item-names Item-names are the names of the fields in the record. You can get 
these names and their sequence in the record by issuing a SHOW 
command. The SHOW command also tells you which items you 
must include when you add a record. To see the record format for 
the examples in this section, see screen 7-65 in 7.25. 


Input message length Note that the length of the input message, including identifiers, 
item-names, and values, is limited to 256 characters. 


Output display In response to the ADD command, UNIQUE displays column 
headers, the values you entered, if acceptable, and error notations. 
You can enter additional values, and UNIQUE repeats the display. 
When you are satisfied with the new record, you key in the OK 
command to add the record to the file. 


Two subformats We can illustrate the hard-copy format of the ADD command more 
easily by breaking it down into two formats. The first format is easier 
when you are entering values for only a few selected items in the 
record. The second format is easier when you are entering a value 


for every item in the record. You can also use a combination of the 
two formats. 


Naming items and 1. In the first format, you name each item and its value: 
values 
Format ADD identifier item-name=value[;item-name=value]... 


When you use this format, you can enter the items in any 
order. Enter a semicolon after each value except the last. No 
spaces are allowed before or after the equal sign or before the 
semicolon. A space after the semicolon is optional. Here’s an 


example: 
Example add 111111 category=saw;cost=58.00; price=86.590 
Entering values by 2. In the second format, you omit the item-names and enter 
position values for the items in the exact order they appear in the record 
(the same order as the column headers): 
Format ADD identifier value[{;value]... 


Here’s an example: 


Example add 111111 saw;‘circular 12in’;280;59.80:;86.58 
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Omitting items 


Example 


Item-name/positional 
combination 


Formats 


Examples 


Update validation 


When you don’t want to enter a value for every item in the 
record, you can omit an item by entering a semicolon in its 
position. For instance, to enter values only for category, cost, 
and price, key in this format: 


add 111111 saw;;;58.08;86.59 


The first semicolon after SAW is the separator. The second and 
third semicolons replace values for DESCRIPTION and OTY-ON- 
HAND. 


3. You can use a combination of the two formats, like this: 


ADD identifier item=value[;value]... 


or 


ADD identifier value[;item=value]... 


UNIQUE determines value positions from the last item-name 
you enter. For example, to enter values for CATEGORY, COST, 


and PRICE: 


add 111111 category=saw;cost=58.90;86.58 


or 


add 111111 saw; cost=58.80; 86.586 


In response to the ADD command, UNIQUE displays column 
headers, valid entries, and questions marks for invalid entries and 
omitted MUST ADD items. As with the display format, UNIQUE 
checks for data type and value ranges. However, UNIQUE does not 
check for field length. If you enter a value with too many 
characters, UNIQUE truncates the value. Screen 7-28 illustrates 
the UNIQUE response, with question marks for missing MUST ADD 


items. 
SCREEN IP 
7-28 


add 111111 category=saw;cost=58.68:86.58 









STOCK-NO CATEGORY DESCRIPTION QTY -ON-HAND 
111111 SAW PPPPPPPPPPPPPP2P7? Bh tee 
cost PRICE REORDER-POINT ORDER-QTY KILOS GRAMS 


66,658.68 60.086.58 27.27? arr aa 


Loc YTO-USAGE 
2222 cee 


__ 
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@ Correcting errors You make corrections by entering either an item-name and value or 
just a value. To enter a value without the item-name, you must key 
in the correct number of semicolons to place the value in its correct 
position in the record. For example, to enter values _ for 
DESCRIPTION and OQTY-ON-HAND, key in either format: 


ltem-name example description='circular 12in'’;qty-on-hand=209 


or 


Positional example s'circular 12in’;288 


The second method can become rather cumbersome when you want 
to enter a value that isn’t near the beginning of the record. For 
instance, to enter a value for LOC, you would have to count the 
number of item-names preceding LOC and key in this format: 


Vea a ee 
OK command When you are satisfied with the new record, key in the OK 
Canceling update command to add the record to the file. If you decide not to add the 
record, key in the CANCEL command. If you key in the OK command 
and a MUST ADD item is missing, UNIQUE cancels the ADD 
& command. Here's an example of the entire sequence of inputs and 


outputs: 


. Biss 
- y vd: ) 


add 111121 category=saw;cost=58.88;86.58 








STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 

111111 SAW P2272 722IPZPP277272 reas ee 

cost PRICE REORDER-POINT ORDER-QTY KILOS GRAMS 
89.056 .90 06.6086.58 27,27? aot os as 
Loc YTD-USAGE 

2222 tees 

description='circular 12in'; reorder-point=98; loc=e435 








STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 

Yi1d11 SAW CIRCULAR 121N aera 

COST PRICE REORDER-POINT ORDER-QTY KILOS GRAMS 
08.956.88 98,886.58 60,090 Toews sr oie 
Loc YTD-USAGE 

£435 te eee 


ADD COMPLETE 82/81/85 13:12:26 


UP-9209 


SPERRY UNIVAC OS/3 7-24 
IMS DATA DEFINITION AND UNIQUE 





CHANGE COMMAND 








7.13. CHANGING A RECORD 


Function 


Update state 


Display format use 


Hard-copy format use 








The CHANGE command initiates a = CHANGE 
series of inputs and responses that 
result in changing one or more ———— 
items in a record. The CHANGE command places your terminal in an 
update state. While your terminal is in this state, UNIQUE does not 
accept any other commands except OK or CANCEL. 





There are two different formats for this command: the display format 
and the hard-copy format. The entire update sequence is different 
for the two formats, so we treat them as two separate commands. 


You can use the display format at any display terminal except an 
IBM 3270 display station. The hard-copy format is intended for hard- 
copy terminals, but you can use it at any terminal. 


7.14. DISPLAY FORMAT OF THE CHANGE COMMAND 


Description 


Format 


Parent-child identifier 


Requesting multiple 
records 


Update format display 


Example 


In the display format of the CHANGE command, you identify the 
record you want to change. UNIQUE displays an update format, 
allowing you to fill in values for the items you want to change in the 
record. Its format is similar to the DISPLAY, DELETE, and ADD 
commands: 


CHANGE identifier-l[;identifier-2]... 


As with the DISPLAY, DELETE, and display format ADD commands, 
an identifier may be made up of parent and child identifiers 
(separated by commas), and you can request up to 10 records on 
the same CHANGE command. See the DISPLAY and DELETE 
commands for examples of these functions. 


In response to the CHANGE command, UNIQUE displays column 
headers and the current value of each item in the record. Below the 
current values, UNIQUE displays update formats (containing 
asterisks) for those items that you are allowed to change. Items that 
do not have update formats cannot be changed. Suppose you want 
to change record 115010 in the inventory file: 
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Transmitting update 
screen 


Update validation 


When another terminal 
is updating record 





STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 
115010 DRILL PRESS 151N 1/3HP 15 
COST PRICE REORDER-POINT ORDER-QTY KELOS GRAMS 

20 


45.98 68.58 12 28 12 


Loc YTD-USAGE 
B722 43 


<> 


Press the tab key to move the cursor to the beginning of each update 
format and enter new values only for those items you want to 
change. Be sure to overwrite leading asterisks in each item with 
blanks or zeros. UNIQUE does not accept new values with an 
asterisk in the first position. Transmit the screen by placing the 
cursor between the special characters < >: 


a. Ria 
Bz 


oe 





ve 





. 
: change 115818 
e STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 
. 115010 DRILL PRESS 151N 1/3HP 15 
cost PRICE REORDER-POINT ORDER-QTY KILOS GRAMS 
45.00 68.58 12 2a 12 28 
46.58] 76. 25 he 
LOC. YTD-USAGE 
B722 43 
<N> 





UNIQUE checks the values you enter against criteria established in 
the data definition - type of data (alphabetic, alphanumeric, or 
numeric), field length, and value ranges. If there are no errors, 
UNIQUE replaces the old record in the file with the changed record 
and displays a CHANGE COMPLETE message: 


. Bias . 
«eae 


change 115918 
CHANGE COMPLETE 










82/61/85 13:28:56 


Note, however, that if the record is in the process of being updated 
by a transaction at another terminal, UNIQUE does not make the 
requested change and an INVALID REQUEST message is displayed. 


Reenter the CHANGE command. 
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Error display 


OK command 


If you enter invalid data or a value outside the allowable range, 
UNIQUE displays question marks in place of the update format for 
the invalid item. For example, suppose you key in an o instead of a 
zero in the reorder-point item: 


~ Reise « 
7-33 


STOCK-NO CATEGORY 
115010 DRILL 






DESCRIPTION QTY-ON-HAND 
PRESS 151N 1/3HP 15 


ied 


COST PRICE REORDER-POINT ORDER-QTY KILOS GRAMS 
45.88 68.58 12 28 12 28 
46.50] 78.25 a | | setts 

Loc YTD-USAGE 

8722 43 

<N> 

SCREEN & 
7-34 





STOCK-NO CATEGORY 
115618 DRILL 


DESCRIPTION 


QTY-ON-HAND 
PRESS 15tN 1/3HP 15 


er 


cost PRICE REORDER-POINT ORDER-QTY KILOS GRAMS 
45.68 68.58 12 28 12 28 
46.58 70.25 R22? aa 

toc YTD-USAGE 


B722 43 


<> 


You can, if you want, enter the OK command to change the valid 
items in the record. Any item for which you entered an incorrect 
value remains unchanged: 


SCREEN 
7-35 


CHANGE COMPLETE 82/81/85 13:31:16 





Again, if the record is being updated at another terminal, UNIQUE 
does not change the record but displays an INVALID REQUEST 
message. 
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& Canceling update 





You can also enter the CANCEL command at any time during the 
CHANGE sequence to cancel the update: 


. Bese .- 
PG 


CHANGE CANCELLED 82/62/81 13:31:35 







7.15. HARD-COPY FORMAT OF THE CHANGE COMMAND 


Description 


Format 


Parent-child identifier 


Item-names 


Output display 


Two subformats 


Naming items and values 


Format 


Example 


In the hard-copy format of the CHANGE command, you identify the 
record you want to change and also enter values for the items you 
want to change in the record. Its format is: 


CHANGE identifier [item-name=]vaiue[;item-name=]value]... 


As in the display format, an identifier may be made up of parent and 
child identifiers (separated by commas). See the DISPLAY command 
for examples. Unlike the display format, you cannot request more 
than one record on the same hard-copy format CHANGE command. 


Item-names are the names of the fields in the record. You can get 
these names and their sequence in the record by issuing a SHOW 
command. The SHOW command also tells you which items you are 
allowed to change in the record. To see the record format for the 
examples in this section, see screen 7-65 in 7.25. 


In response to the CHANGE command, UNIQUE displays column 
headers, the values you entered, if acceptable, and error notations. 
You can enter additional values, and UNIQUE repeats the display. 
When you are satisfied with the new record, you key in the OK 
command to change the record in the file. 


We can break down the hard-copy format of the CHANGE command 
into two formats, as we did with the ADD command: 


1. In the first format, you name each item and its value: 


CHANGE identifier item-name=value[;item-name=value]... 


When you use this format, you can enter the items in any 
order. Enter a semicolon after each value except the last. No 
spaces are allowed before or after the equal sign or before the 
semicolon. A space after the semicolon is optional. Here’s an 
example: 


change 115818 cost=46.50;price=708.25 
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Entering values by 
position 


Format 


Example 


Item-name/positional 
combination 


Formats 


Example 


Update validation 


Field length not 
checked 


When change is 
not allowed 


Example 





2. In the second format, you omit the item-names and enter 
values for the items in the exact order they appear in the record 
(the same order as the column headers): 


CHANGE identifier value[;value]... 


When you omit an item, enter a semicolon in its position. For 
example: 


change 115010 ;;;46.58;768.25 


In this example, the three semicolons replace values for 
CATEGORY, DESCRIPTION, and QTY-ON-HAND. 


3. You can use a combination of the two formats, like this: 


CHANGE identifier item=value[;value]... 


or 


CHANGE identifier value[;item=value]... 


UNIQUE determines value positions from the last item-name 
you enter. For example: 


change 115818 cost=46.50;70.25 


In response to the CHANGE command, UNIQUE displays column 
headers, the values you specify, and question marks for invalid 
entries. As with the display format, UNIQUE checks for data type 
and value ranges. However, UNIQUE does not check for field 
length. If you enter a value with too many characters, UNIQUE 
truncates the value. 


Remember that you can enter values only for items you are 
allowed to change in the record. If you enter a value for an item 
that cannot be changed, UNIQUE does not recognize the item- 
name. Instead, UNIQUE interprets the entry as a positional value 
string and attempts to change the next field for which change is 
allowed. 


For example, in screen 7-37, an entry is made for QTY-ON-HAND. 
Change is not allowed for QTY-ON-HAND (see screen 7-65). 
UNIQUE interprets the entire entry, QTY-ON-HAND=58 as a value 
for the next item after PRICE REORDER-POINT. But REORDER- 
POINT is defined in the data definition as a numeric item, so the 
value is rejected and UNIQUE displays question marks. 
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Correcting errors 





@& OK command 


Canceling update 





& When another terminal 
is updating record 








SCREEN & 
7-37 


change 115818 cost=46.598 





:price=76.25;qty-on-hand=58 





STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 
1150198 DRILL PRESS 151N 1/3HP 15 

cOsT PRICE REORDER-POINT ORDER-QTY KILOS GRAMS 
08,646.58 96,978.25 22,22? 29 12 20 
Loc YTD- USAGE 

8722 43 


You make corrections by entering either an item-name and value 
or just a value. To enter a value without the item-name, you must 
key in the correct number of semicolons to place the value in its 
correct position in the record. For example, to enter the correct 
value for REORDER-POINT, use either of these formats to key in 
data: 


reorder-point=12 


When you are satisfied with the changed record, key in the OK 
command to change the record in the file. If you decide not to 
change the record, key in the CANCEL command. Here's an 
example of the entire sequence of inputs and outputs: 


SCREEN [eee 
7-38 


.. ...._ «ss 











: change 115810 cost-46.50 :price-70.25:qty-on-hand- 58 
be STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 
e 1158619 DRILL PRESS 151N 1/3HP 15 
. cost PRICE REORDER-POINT ORDER-QTY KILOS GRAMS 
. 96,046.56 99,978.25 27,27? 20 12 28 
Loc YTD-USAGE 
B722 43 
STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 
115618 ORiLL PRESS 151N 1/3HP 15 
COST PRICE REORDER-POINT ORDER-QTY KILOS GRAMS 
99,646.58 96.678.25 12 20 12 28 
Loc YTD-USAGE 
B722 43 
CHANGE COMPLETE 82/81/85 14:85:58 


Note, however, that if the record is in the process of being updated 
by a transaction at another terminal, UNIQUE does not make the 
requested change and an INVALID REQUEST message is displayed. 
Reenter the CHANGE command. 
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7.16. LISTING THE RECORDS IN A FILE 


Function 


Format 


LIST parameters 


The LIST command displays: 





a the contents of all the records 
in a file; 


= the contents of selected records in a file; or 
=" ~=specific items in all or selected records. 


In addition to displaying record contents, the LIST command can 
calculate and display the results of statistical functions. 


The format of the LIST command is: 


LIST {[display-content-specification]}... 
[IF conditional-expression]; 


[FOR identifier-1] 


AFTER identifier-2 
FROM 


[statistical-function [item-name-i[,item-name-2]...]] 


All of the parameters on the LIST command are optional. You can 
enter the LIST command with no additional specifications to get a 
complete listing of the records in a file. When you enter more than 
one parameter with the LIST command, you must enter them in the 
order shown in the format. 


Because of the complexity of the LIST command format, we’ll break 
it down into separate formats for different functions. 


7.17. LISTING COMPLETE CONTENTS OF ALL RECORDS 
(UNQUALIFIED LIST) 


Function 


Format 


To list the complete contents of all the records in a file, enter the 
LIST command with no additional specifications. This is called an 
unqualified LIST command: 


LIST 
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@ Example Here’s an example of an unqualified LIST command for the INVFILE 
file and the resulting display. An asterisk precedes the headers for 
each record type (in this case, there is only one record type), and a 


Embedded MORE LIST period precedes each record. Because the file takes up more than 
one screen, UNIQUE embeds a MORE LIST command in the screen 
display: 

SCREEN [een 
7-39 I 



















AMORE LISTo 





- * STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 
2 COST PRICE REORDER-POINT ORDER-QTY KILOS GRAMS LOC 
— YTD-USAGE 


oe 


- 181119 SAW TABLE 9IN 1 6HP 

















. 139.08 189.88 25 35 96 
> 183 
a 101115 SAW TABLE 101N 2.5HP 
. 223.80 299.95 28 35286 
. 74 
- _ 191128 SAW TABLE 121N 3.5HP 
350.08 499.95 28 38-228 
89 
. 182155 SAW CHAIN 181N 3.7CU 
172.85 237.99 19 15 26 
38 
. 192168 SAW CHAIN 161N 2.5CU 
151.85 287.99 18 15 15 
@ ; 
. 192165 SAW CHAIN 141N 2. 9CU 
128.85 167.99 15 28 14 
56 


When you press the TRANSMIT key, UNIQUE displays the next 
END LIST screenful. On the last LIST screen, END LIST replaces MORE LIST in 
the upper right corner. 


7.18. SELECTING ITEMS OR RECORDS FOR LISTING 
(DISPLAY-CONTENT-SPECIFICATION) 


Function The first parameter on the LIST command selects specific record 
items or complete records or subrecords for listing: 


Format LIST -display-content-specification [;] 
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Specification types 


Entering item-names 











There are four types of display content specifications: 
1.  item-names 

2. record-name 

3. ALL 


4. subrecord-name 


Selecting Record Items for Listing (Item-names) 


To display specific items in each record, enter the. LIST command 
with item-names. Separate item-names with one Or more spaces. 
UNIQUE displays the record identifier and the items you select, with 
column headers. For example, suppose you want to display the 
category, description, and price items for each record in INVFILE: 


. Beata - 
Be . 


list category description price 


















AMORE Listc 


* STOCK-NO CATEGORY DESCRIPTION PRICE 
- 181118 SAW TABLE SIN 1.6HP 189.88 
. 161115 SAW TABLE I181N 2.5HP 299.95 
. 181128 SAW TABLE I21N 3.5HP 499.95 
- 162155 SAW CHAIN I8IN 3.7CU 237.99 
. 182168 SAW CHAIN IL6IN 2.5CU 267.99 
- 102865 SAW CHAIN 141N 2.8CU 167.99 
- 162178 SAW CHAIN 181N 2.8CU 77.99 
- 103818 SAW CIRCULAR 6IN 25.58 
. 1839813 SAW CIRCULAR 7IN 34.50 
. 163816 SAW CIRCULAR 81N 48.56 
. 125608 DRILL PRESS 721N 1/2HP 346.94 
. 115618 DRILL PRESS ISIN 1/3HP 68.58 
- 1165586 DRILL HAND 1/21N 7/8HP 68.50 
. 116555 DRILL HAND 1/21N 3/8HP 48.58 
. 116568 DRILL HAND 3/81N 1/5HP 28.58 
. 116565 ORILL HAND 1/41N 1/6HP 7.49 
. 121918 TOOLBOX CHEST 16 DRAWER 144.99 
. 1219828 TOOLBOX CHEST 5 DRAWER 99.99 
. 121838 TOOLBOX CHEST 3 DRAWER 94.99 
. 122848 TOOLBOX FLAT TOP 231N 33.99 


. 122658 TOOLBOX Two COVER 171N 32.75 
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Order of entry You can enter the item-names in any order. UNIQUE displays the 
items in the order you select. For example, you might want to 
display the items in the preceding example in reverse order: 





20 SCREEN 
a 7-41 
p 
Es 
AMORE Lista 
* STOCK-NO PRICE DESCRIPTION CATEGORY 
. 101116 189.88 TABLE 9IN 1.6HP SAW 
. 181115 299.95 TABLE 181N 2.5HP SAW 
. 161128 499.95 TABLE 121N 3.5HP SAW 
. 182155 237.99 CHAIN 181N 3.7CU SAW 
. 162168 267.99 CHAIN L6IN 2.5CU SAW 
. 182165 167.99 CHAIN 141N 2.6CU SAW 
. 102178 77.99 CHAIN 181N 2.9CU SAW 
. 163618 25.58 CIRCULAR GIN SAW 
. 183013 34.56 CIRCULAR 7IN SAW 
. 103016 48.58 CIRCULAR 8IN SAW 
. 115098 349.94 PRESS 721N 1/2HP DRILL 
. 115818 68.58 PRESS 15IN 1/3HP ORIEL 
. 116558 68.58 HAND 1/2IN 7/8HP DRILL 
. 116555 48.59 HAND 1/2UN 3/8HP DRILL 
. 116566 28.50 HAND 3/8IN 1/5HP ORILL 
. £16565 7.49 HAND 1/41N 1/6HP DRILL 
. £21610 144.99 CHEST 16 DRAWER TOOLBOX 
. 121629 99.99 CHEST 5 DRAWER TOOLBOX 
. 121039 94.99 CHEST 3 ORAWER TOOLBOX 
. 122946 33.99 FLAT TOP 231N TOOLBOX 
. 1220598 32.75 TWO COVER 171N TOOLBOX 





Multiple record types INVFILE contains only one record type, but you can use the item- 
names specification in the same way for a file containing several 
record types. UNIQUE searches all the record types for the items you 
specify. 


We'll give additional examples of the item-names specification in 
the discussions of the other LIST parameters. 


Selecting Complete Records for Listing (Record-name, ALL) 


One record type With a defined file containing only one type of record, you omit the 
display content specification when you want to display the entire 
record, as in the unqualified LIST command. You can specify the 
record name, but this is not necessary. 


Multiple record types However, when there is more than one kind of record in the file, you 
may want to display only selected record types. We'll use the SALES 
file to illustrate the record-name and ALL specifications. The SALES 
file contains CUSTOMER, INVOICE, and INV-ITEM records. 
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Listing one record type 


Listing several record 
types 





To list just one type of record, enter the LIST command with the 
record name. The following example opens the SALES file and 
displays all CUSTOMER records. You can enter the OPEN and LIST 
commands together: 


SCREEN 
7-42 


open sales list customer 








AMORE LISTO 

* CUST-NAME CUST-1D ADDRESS CITY ST ZIP 
PHONE 

. ABLE COMPANY §-48598 2646 CLOVERLY LA MIDDLETOWN PA 19789 
675-887-9595 

. ADDLEBY,INC. 5-21543 1519 MEARNS RD HOMETOWN AR 54331 
§43-129-1187 

- ADHOC, INC. §-13448 258 HOPEWELL GREENVILLE GA 34687 
236-657-5446 

. AMARK HARDWARE 5-68814 29 CATANGA ST CATANGA Fl 42976 
625-537-9954 

. AMWAY VARIETY §-15574 5348 MARIAN RD SEKONDA Wi 68867 
457-332-5648 

. ARROWHEAD LTD. 5-55429 8418 BROAD ST BARRINGTON MA 38558 
145-854-6708 

. ASTOR HARDWARE 5-18976 129 MAIN ST ASTOR SC 25995 
323-776-4289 

. ATRIUM COMPANY 5-85946 558 FORREST AVE DRINKWATER VA 32584 
278-246-6785 

. ATWELL VARIETY 5-32963 1846 DARIEN DR PHILA. PA 19958 
817-236-5579 

. B & M HARDWARE 5-48896 1226 SHADY LA ROCKWELL IN 45688 


345-886-7896 





Press the TRANSMIT key to see the next screenful of CUSTOMER 
records. 


To list more than one type of record, enter the LIST command with 
the record names separated by semicolons. Spaces after the 
semicolon are optional. The following example displays the 
CUSTOMER and INVOICE records. The hyphen preceding each 
INVOICE record identifier indicates that it is subordinate to a 
CUSTOMER record: 
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Listing all record 
types 


SCREEN 


7-43 © 



















list customer; invoice 


AMORE LISTO 










* CUST-NAME CUST-I1D ADDRESS city ST ZIP 
PHONE 
“ -INV-NO INV-DATE TOTAL-SALES TAX-AMT INV-GROSS 

ABLE COMPANY 5-40598 2646 CLOVERLY LA MIDDLETOWN PA 19789 
675-887-9595 

-357085 88/15/81 2,599.84 174.86 2,774.64 

-444834 69/18/81 589.17 28.36 608.47 

-4556109 10/81/81 1,367.76 65.88 1,432.78 

ADDLEBY, INC. 5-21543 1519 MEARNS RD. HOMETOWN AR 54331 
543-129-1187 

-352246 68/84/81 188.90 16.28 196.28 

-405891 68/38/81 429.06 35.25 464.25 

525683 18/65/81 356.90 29.74 385.74 

ADHOC, INC. 5-13448 258 HOPEWELL GREENVILLE GA 34687 
236-657-5446 

-350208 68/01/81 3,560.08 143.38 3,683.38 

AMARK HARDWARE 5-60814 29 CATANGA ST CATANGA FL 42978 
625-537-9954 

485465 69/17/81 846.80 39.45 885.45 

-556347 18/24/81 2,175.89 136.68 2,311.08 





To list all three record types, you can enter the command: 


list customer;invoice;item 


You'd get the same listing by entering an unqualified LIST: 


SCREEN : es oe 
7-44 





- 




















OMORE ilsta 
* CUST-NAME CUST-!1D ADDRESS CITY ST ZIP 
PHONE 
" -INV-NO FNV-DATE TOTAL-SALES TAX -AMT INV-GROSS 
* --NMBR ITEM-CODE DESCRIPTION QUAN UNIT-PRICE TOT-PRICE 
ABLE COMPANY 5-40598 2046 CLOVERLY LA MIDDLETOWN PA 19789 
675-887-9595 
-357085 88/15/81 2,599.84 174.86 2,774.64 
--B1 121018 TOOLBOX-CHEST 16DR 6 144.99 869.94 
- -B2 1639818 SAW-CIRCULAR 6IN 12 25.58 396.08 
- - 83 162165 SAW-CHAIN 141N 4 167.99 671.96 
-- 04 115668 ORILL-PRESS 72IN 1 346.94 348.94 
+85 116556 ORiLL-HAND 7/8HP 6 68.58 411.08 
-444834 69/18/81 586.17 28.30 608.47 
: --81 361118 LAWN-MOWER ELEC 3 193.39 588.17 
. -455616 18/61/81 1,367.76 65.68 1,432.78 
. --91 161118 SAW-TABLE 9IN 2 189.88 379.76 
--82 163916 SAW-CIRCULAR 81N 8 48.50 388.68 
-- 83 121826 TOOLBOX-CHEST 5DR 6 99.99 $99.94 


Co 





PO 
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ALL specification 


Omitting record types 


Listing child records 


Purpose 


Opening subfile 


The two hyphens preceding the INV-ITEM records indicate that there 
are two records above them in the hierarchy - CUSTOMER and 
INVOICE. 


The ALL specification has the same effect as record-name - it 
displays all the items in a particular record. Because you do not 
name the record, UNIQUE determines which record type you want 
by the position of ALL in the LIST command. For example, to display 
only the CUSTOMER records, you can enter: 


list all (equivalent to list customer) 


To display the CUSTOMER and INVOICE records, enter: 


list all;ail (equivalent to list customer;invoice) 


Because the ALL specification is positional, you must enter a 
semicolon in place of any record type you skip. For example, to 
display only the INVOICE records, enter: 


list ;all (equivalent to list invoice) 


To display only the INV-ITEM records, enter: 


list ;;all (equivalent to list inv-item) 


Because INVOICE and INV-ITEM are child records, you normally 
would not list them without also listing the parent records. You can 
display the INVOICE records for a specific customer or the INV-ITEM 
records for a specific invoice by using the FOR parameter. See the 
FOR parameter for examples. 


Selecting Subrecords for Listing (Subrecord-name) 


The subrecord-name specification is the same as record-name, 
except that you use it to list the contents of subrecords. To display 
a subrecord, you must first open the subfile that contains the 
record, 


Remember that PRODUCT is a subrecord in the inventory file. To 
display the PRODUCT subrecords, you must first open the STOCK 
subfile. Because STOCK contains only one type of record or 
subrecord, you get the same result whether you enter the 
subrecord name or enter an unqualified LIST command: 


open stock list product 


or 


open stock tist 
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SCREEN 
7-45 


open stock list product 


* STOCK-NO CATEGORY DESCRIPTION PRICE 
QTY-ON-HAND 
. 181118 SAW TABLE 9IN 1.6HP 189.88 
24 
. 161115 SAW TABLE 101N 2.5HP 299.95 
18 
. 101128 SAW TABLE 121N 3.5HP 499.95 
21 
. 102155 SAW CHAIN 181N 3.7CU 237.99 
18 
. 162168 SAW CHAIN 161N 2.5CU 207.99 
13 
. 182165 SAW CHAIN 141N 2.8CU 167.99 
15 
. 192178 SAW CHAIN 161N 2.8CU 77.99 
14 
. 193018 SAW CIRCULAR 6IN 25.58 
28 
. 193813 SAW CIRCULAR 7IN 34.58 
31 
. 163816 SAW CIRCULAR 81N 48.50 
26 


AMORE LISTO 





7.19. SELECTING RECORDS THAT MEET A CONDITION 














(IF CLAUSE) 

Function The IF clause restricts the output of the LIST command on the basis 
of a conditional expression. You can use a conditional expression 
with or without the display-content-specification parameter. The 
format is: 

Format LIST [dis -content-s ific nj 

IF conditional-expression 

Simple conditional A simple conditional expression is a comparison between a record 

expression item and another record item or a literal value. The comparison 
Operators are: 

Comparison operators EQ or = Equal to 


NE Not equal to 


GT or > Greater than 
GE Greater than or equal to 
LT or < Less than 


LE Less than or equal to 
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Comparing two record 
items 


Comparing item with 
literal 














Here’s an example of a simple conditional expression comparing two 
record items in the inventory file. This example requests a display of 
the DESCRIPTION, ORDER-QTY, and COST items for all records in 
which the value of OQTY-ON-HAND is less than the value of 
REORDER-POINT: 


, ese so 
7-46 





fist description order-qty cost if qty-on-hand < reorder-point 
AMORE listo 
* STOCK-NO DESCRIPTION ORDER-QTY cost 
. 181118 TABLE 9IN 1.6HP 35 139.86 
- 161115 TABLE 181N 2.5HP 30 223.96 
. 182178 CHAIN 101N 2.0HP 26 58.86 
. 116558 HAND 1/21N 7/8HP 18 44.56 
. 252777 EXTENSION 36FT 25 139.99 
. 252778 EXTENSION 46FT 25 159.99 
. 3962295 EDGER GAS 25 118.68 
. 383377 TRIMMER ELEC J61N 46 29.99 
. 384995 RAKE 221N SPREAD 65 3.56 
. §67861 SNAP-RING 178 4.86 
- §67882 SOLID-JOINT GIN 225 3.78 
. 5678863 SOLID-JOINT 8IN 225 3.95 
. 567884 ARC-JOINT 121N 138 4.65 
. §67885 ARC-JOINT 161N 168 7.95 
. §71128 18-PC SET 168 28.66 
. §71121 14-PC SET 108 14.75 
- 571422 8-PC SET 280 8.85 
. 572555 SLOT 41N 608 1.25 
. 572556 SLOT 6IN 868 1.59 





If you entered the same LIST command without the item names: 


list if qty-on-hand < reorder-point 


UNIQUE would display the entire contents of each record, meeting 
the condition you specified. 


Here’s another example of a simple conditional expression, this time 
comparing an item in the record - CATEGORY - with the literal 
value LAWN: 
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Literal smaller than 
item 


Complex conditional 
expression 


NOT, AND, OR 
operators 






SCREEN 
7-47 


*STOCK-NO 
- 381106 
381118 
301128 
3611398 
-382295 
. 382296 
. 383377 
. 303378 
. 363379 
- 384995 
- 384996 


CATEGORY 
LAWN 
LAWN 
LAWN 
LAWN 
LAWN 
LAWN 
LAWN 
LAWN 
LAWN 
LAWN 
tAWN 


DESCRIPTION 

MOWER REAR BAG 
MOWER ELEC W/CORD 
MOWER BATTERY 
MOWER SIDE BAG 
EDGER GAS 

EDGER ELECTRIC 
TRIMMER ELEC 16IN 
TRIMMER ELEC 181N 
TRIMMER ELEC 9tN 
RAKE 221N SPREAD 
RAKE ADJUSTABLE 


jist category description qty-ot-hand if category = 
END 





LIST 


QTY-ON-HAND 


9 
13 

3 
11 
15 
18 
20 
32 
45 
32 
12 





When you compare an item to a nonnumeric literal value, the literal 
can have a smaller number of characters than the item actually 
contains. For instance, you might want to list the complete records 
for all the circular saws. In this example, we use EQ instead of the = 


symbol: 





* STOCK-NO 
cost 

YTD-USAGE 
- 183016 
16.590 

$1 
- 163613 
22.56 

99 
- 163616 
34.58 

167 


SCREEN 
7-48 


list if description eq circular 


CATEGORY 


DESCRIPTION 


PRICE REORDER-POINT ORDER-QTY 


SAW 
25.58 


SAW 
34.58 


SAW 
48.58 


CIRCULAR 6IN 
15 25 


CHERCULAR 7IN 
25 45 


CIRCULAR 8IN 
25 45 





KILOS 


END 
QTY 
GRAMS 


149 


98 


98 





LIST 
-ON-HAND 
toc 


28 
E418 


31 
E425 


26 
£438 





In addition to simple conditional expressions, you can specify more 
complex conditions for record selection. You can: 


a Precede a comparison operator with the word NOT to make it 


negative 


. Use AND or OR to create a compound conditional expression 


s Use combinations of NOT, AND, and OR. When you use a 
combination, UNIQUE evaluates NOT first, then AND, and 
finally OR. You can change the order of evaluation by using 
parentheses. 
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Forming value range You can use AND and OR in more than one way. Our first example 
compares the same item name - PRICE - with two different literals. 
The effect of this expression is to form a value range: 


SCREEN Ee 
7-49 


# 
Se 











< 198 





list category description price if price gt 75 and « 


END LIST 

* STOCK-NO CATEGORY DESCRIPTION PRICE 

. 1921786 SAW CHAIN 1861N 2.0CU 77.99 

. 121626 TOOLBOX CHEST 5 DRAWER 99.99 

- 1218638 TOOLBOX CHEST 3 DRAWER 94.99 

. 2511863 LADDER STEP 10FT 84.99 

. 267771 SUMPPUMP VERTICAL-STAINLESS 84.95 

. 268086 SUMPPUMP SUBMERSIBLE 89.95 

. 974452 SANDER BELT 2HP 98.50 

. 974453 SANDER BELT 1 83.58 
Requiring two The next example is a combination of two separate comparisons, 
conditions involving two item names and two literals. Only one record meets 


both of the conditions in this expression: 


o Bee ooo 
7-50 





list-category description cost if category toolbox and cost gt 188 
END LIST 

* STOCK-NO CATEGORY DESCRIPTION cost 

. 121818 TOOLBOX CHEST 18 DRAWER 185.99 


7.20. LISTING A SUBSET OF A HIERARCHICAL FILE 
(FOR CLAUSE) 


Function The FOR clause lists items or complete records related to a 
particular record in a hierarchical file. The most common use of the 
FOR clause is to list child records for a specific parent record. The 
format is: 


Format LIST [[display-content-specification] 








[IF conditional-expression}:]... . FOR identifier- 








We'll use the SALES file for the examples in this subsection. 
Remember, the SALES file contains three record types: CUSTOMER, 
INVOICE, and INV-ITEM. 
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Listing child records 


Listing two record types 


Listing all child records 


Suppose you want to list all the invoices for ABLE COMPANY: 


SCREEN 
7-51 





open sales 
fist invoice for ‘able company 


END LIST 
ABLE COMPANY 
* -INV-NO INV-DATE TOTAL-SALES TAX - AMT INV-GROSS 
-357085 88/15/81 2,599.84 174.80 2,774.64 
-444834 99/18/81 580.17 28.39 608.47 
-455618 18/81/81 1,367.76 65.88 1,432.78 





Perhaps now you want to list the items on invoice 357005: 


oe EEE xe 
ea 7-52 









& 


list inv-item for ‘able company’ , 3578685 





. END LIST 
. ABLE COMPANY 
- -357865 
. * --NMBR ITEM-CODE DESCRIPTION QUAN UNIT-PRICE TOT-PRICE 
. . +81 121619 TOOLBOX-CHEST 10DR 6 144.99 869.94 
- _ = 82 193619 SAW-CIRCULAR GIN 12 25.58 306.80 
--83 182165 SAW-CHAIN 141N 4 167.99 671.96 
. 84 115698 DRILL-PRESS 721N 1 340.94 340.94 
--85 116558 DRILL-HAND 7/8HP 6 68.58 411.09 


To list both the invoices and invoice items for Able Company, you 
can enter: 


list invoice;inv-item for ‘able company’ 


Because you want to list all the records that are subordinate to Able 
Company, you can omit the record names and enter: 


list for ‘able company’ 
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In either case, you get the following listing: 


SCREEN 
7-53 


list for ‘able company 








END LIST 
ABLE COMPANY 

* -INV-NO INV-DATE TOTAL-SALES TAX - AMT INV-GROSS 
* --NMBR ITEM-CODE DESCRIPTION QUAN UNIT-PRICE TOT-PRICE 
- °-3578085 68/15/81 2,599.84 174.88 2,774.64 
- -°Bl 121018 TOOLBOX-CHEST 1B8DR 6 144.99 869.94 
- +82 1639618 SAW-CURCULAR 6IN 12 25.58 386.988 
- -+83 162165 SAW-CHAIN 141N 4 167.99 671.96 
. 7 °B4 115688 DRILL-PRESS 721N 1 346.94 348.94 
. 2° B5 116558 ORILL-HAND 7/8HP 6 68.58 411.96 
. -444834 69/18/81 580.17 28.308 688.47 
- 7-61 301116 LAWN-MOWER ELEC 3 193.39 588.17 
- -455618 18/81/81 1,367.76 65.898 1,432.78 
- 7° O28 181110 SAW-1ABLE 9IN 2 189.88 379.76 
- 762 183916 SAW-CIRCULAR 81N 8 48.58 388.88 
- +83 121628 TOOLBOX-CHEST 5DR 6 99.99 599.94 


Listing specific items 





Instead of listing complete records in the previous examples, you 
might want to list only certain items in the records. For example, 
suppose you want to list all the invoice numbers, dates, item 
numbers, codes, and quantities ordered for Able Company. You can 
omit the invoice and item numbers because they are record 
identifiers and are always listed when you request items in those 
records: 


SCREEN 
7-54 


list inv-date item-code quan for 








‘able company’ 








END LIST 
ABLE COMPANY 
“ -ENV-NO  INV-DATE 
* .-NMBR ITEM-CODE QUAN 
. -357085 88/15/81 
--Bl 121016 6 
+-B2 1838018 12 
--93 162165 4 
--64 115888 1 
. > -B5 116558 6 
. °4446834 69/18/81 
- 7781 361116 3 
. -455618 18/81/81 
. > Bt 191118 2 
- -- 82 163616 8 
. --83 121828 6 
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Using conditional 
expression 


Other uses 


You can use a conditional expression in combination with your 
request for a child record listing. For example, suppose you want to 
list all invoices for ABLE COMPANY with dates earlier than 9/1/81: 


SCREEN [= 
7-55 ff 


list invoice if inv-date 









< 69/81/81 for ‘able company’ 





END LEST 
ABLE COMPANY 

* -ENV-NO INV-DATE TOTAL-SALES TAX-AMT INV-GROSS 

. -357885 88/15/81 2,599.84 174.88 2,774.64 


The FOR clause has additional uses besides listing child records, or 
parts of child records, for a parent record. Two of these uses are 
illustrated in section 3: 


1. When several parent records have the same child record (as in 
Figure 3-7), you can use the FOR clause to list parent records, 
or parts of parent records, that have the same child record. In 
that example, the parent record is an employee record and the 
child record gives an employee location. Because many 
employees have the same location, you can list all the 
employees for a particular location. 


2. When a defined record has multiple identifiers, you can use the 
FOR clause to list records, or parts of records, that have the 
same major identifier. See Figure 3-20c for an example. 


7.21. SPECIFYING A STARTING POINT FOR SELECTING RECORDS 
(AFTER/FROM CLAUSE) 


Function 


Format 


AFTER clause 
FROM clause 


The AFTER/FROM clause designates a starting point from which 
you want to start listing records. The format is: 


LIST[[display-content-specification] 
[!1F conditional-expression]:]}... [FOR identifier-1] 






1e r-2 





When you use AFTER, the output listing starts with the record 
following the one you name with identifier-2. When you use FROM, 
the listing starts with the record you name with identifier-2. 
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Listing specific items 


Listing whole records 


Using with IF and 
FOR clauses 





The following example, using INVFILE, requests a listing of the 
CATEGORY and QTY-ON-HAND items for all records starting at 
260000. Notice in the output listing that there is no record with an 
identifier of 260000. Identifier-2 does not have to identify an actual: 
record in the file - just a starting point: 


, Baie . 
BS 


list category qty-on-hand-from 268688 


* STOCK-NO CATEGORY QTY-ON-HAND 





AMORE Lista 


. 267778 SUMPPUMP 8 
. 267771 SUMP PUMP 6 
. 268686 SUMP PUMP 2 
. 269088 SUMPPUMP 2 
. 381188 LAWN 9 
- 361118 LAWN 13 
. 381128 LAWN 3 
. 301138 LAWN lt 
. 362295 LAWN 15 
. 392296 LAWN 18 ig 
. 383377 LAWN 26 
. 383378 LAWN 32 
. 383379 LAWN 45 
. 384995 LAWN 32 
. 384996 LAWN 12 
. 315555 WHEELBARROW 16 
. 315556 WHEELBARROW 12 
. 316111 WHEELBARROW 23 
. 317995 WHEELBARROW i] 


Dae 


If you omitted the display content specification: 


list from 260068 


UNIQUE would list the complete contents of all records from the 
starting point you specified. 


You can also use the AFTER/FROM clause in combination with the 
IF and FOR clauses. We'll illustrate only the IF clause: 


oe EEE co 
* ey 


list category qty-on-hand if qty-on-hand LE 3 after 268668 











END LIST 
* S$TOCK-NO CATEGORY QTY-ON-HAND 
. 268088 SUMP PUMP 2 . 
. 269888 SUMP PUMP 2 - 
. 381128 LAWN 3 Be 
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7.22. GENERATING STATISTICS (STATISTICAL-FUNCTION) 


Function 


Format 


Statistical functions 


item-names 


The final parameter on the LIST command generates statistics about 
the records you select with the other LIST parameters. The format 
is: 


LIST [[display-content-specification] 
[1F conditional-expression];]... 
[FOR identifier-1} a as) 
tee 


tatistical-function [item-name-1[,item-name-2].. 





where: 


AVG item-name-l{,item-name-2]... 
Displays the average value for each item you specify. 


COUNT 
Displays the number of records that meet the selection criteria 
you establish with the other LIST command parameters. 


MAX item-name-1[,item-name-2]... 
Displays the maximum value for each item you specify and the 
identifier of the record that contains it. 


MIN item-name-1[,item-name-2]... 
Displays the minimum value for each item you specify and the 
identifier of the record that contains it. 


TOTAL item-name-I[{,item-name-2]... 
Displays the total value for each item you specify. 


Item-names are the names that appear as column headers, except 
for the identifier. Any items you name in statistical functions must 
be defined as numeric in the data definition. 
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Example using all 
functions 


Hierarchical file 





The following example requests all five statistical functions for 
records in INVFILE whose price is greater than 75 and less than 
100. You can specify statistical functions in any order. The 
semicolon before the first statistical function is optional: 


SCREEN 
7-58 






list category description price if price gt 75 and < 
avg price max price min price total price 





188; count 





END LIST 


“ STOCK-NO CATEGORY DESCRIPTION PRICE 
- 162178 SAW CHAIN I181N 2.9CU 77.99 
. 121926 TOOLBOX CHEST 5 DRAWER 99.99 
. 12186386 TOOLBOX CHEST 3 DRAWER 94.99 
. 251163 LADDER STEP LOFT 84.99 
. 267771 SUMP PUMP VERTICAL-STAINLESS 84.95 
. 268688 SUMP PUMP SUBMERSIBLE 89.95 
. 974452 SANDER BELT 2HP $8.58 

974453 SANDER BELT 1 83.58 


COUNT STOCK-NO= 8 TOTAL PRICE= 714.86 AVG PRICE= 89.358 
MIN PRICE= 77.99 FOR 182170 MAX PRICE= 99.99 FOR 121028 


When you use statistical functions with a hierarchical file like 
SALES, UNIQUE compiles statistics not only for the records you 
select for listing, but also for any records below them in the 
hierarchy. For example, when you request a listing of invoices for 
Able Company, you get statistical data about both the invoices and 
the items on the invoices. Statistics about invoice items are 
displayed on detail lines following each invoice record, with a 
number sign (#) preceding each detail line. Cumulative statistics for 
Able Company are displayed on a total line, also preceded by a 
number sign: 


SCREEN 


7-59 





open sales 







hist invorce for ‘able company’; total tot-price.total-sales.tax-amt. 
tav-gross count 






ABLE COMPANY 
* -INV-NOQ INV-DATE TOTAL-SALES TAX -AMT INV-GROSS 










-357885 68/15/81 2,599.84 174.88 2,774.64 
-357985: COUNT NMBR= 5 TOTAL TOT-PRICE= 2,599.84 
- 7444834 89/16/81 588.17 28.38 688.47 
-444834: COUNT NMBR= I TOTAL TOT-PRICE= 588.17 
-455618 18/61/81 1.367.786 65.68 1,432.78 






-455618 COUNT NMBR= 3 TOTAL TOT-PRICE= 1,367.78 

ABLE COMPANY COUNT INV-NO= 3 COUNT NMBR= 9 TOTAL TOT-PRICE= 4,547.71 
TOTAL TOTAL-SALES= 4,547.71 TOTAL TAX-AMT= 268.18 
TOTAL INV-GROSS=4,815.81 
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Because TOT-PRICE is an item in the INV-ITEM record, UNIQUE 
provides a total TOT-PRICE for each invoice and a grand total for the 
Abie Company. For the COUNT function, UNIQUE lists the number of 
INV-ITEM records for each invoice (UNIQUE identifies the INV-ITEM 
records by their identifier, NMBR) and the grand total of INV-ITEM 
records for Able Company. UNIQUE also lists the number of 
INVOICE records for Able Company, identifying them as INV-NO. 
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7.23. REQUESTING THE NEXT LIST OR DETAIL SCREEN 


Function 


Format 


Embedded MORE 
command 


Requesting next 
screen later 


MORE without LIST 
or DETAIL 


MORE with LIST 
or DETAIL 





The MORE command requests the 
next screenful of data from the 
previous LIST or DETAIL command. 
The format is: 


MORE eet 

LIST 
As we showed in the LIST examples, UNIQUE includes the MORE 
command in the screen display for the LIST and DETAIL commands 
when the output listing takes up more than one screen. You simply 


press the TRANSMIT key (or CTRL/C on a hard-copy terminal) to 
display the next screenful of data. 





Instead of displaying the next LIST or DETAIL screen immediately, 
you may want to enter another UNIQUE command. You can enter 
any UNIQUE command (except OPEN or CLOSE) between LIST or 
DETAIL output screens. You then resume processing the LIST or 
DETAIL command by entering the MORE command. 


When you enter the MORE command without the LIST or DETAIL 
option: 


MORE 


UNIQUE displays the next screenful from the most recent LIST or 
DETAIL command. 


If you have both LIST and DETAIL commands outstanding, enter: 
more list 

or 
more detail 


to tell UNIQUE which command to resume processing. 


See the DETAIL command (7.24) for examples of the MORE 
command. 
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i) 7.24. OBTAINING A SECONDARY LISTING 


DETAIL 


Function The DETAIL command interrupts 
the processing of a LIST command 
to obtain a more detailed listing. Its 
format is the same as the LIST command except for the command 
name: 





DETAIL ee ee a 


Format [iF conditional-expression]; 
[FOR identifier-1] 
AFTER) identifier-2 
FROM 
[statistical-function [item-name-1l[,item-name-2]...]]... 
LIST output saved The DETAIL command functions exactly the same way as the LIST 


command. For a description of the format specifications, see the 
LIST command (7.16). 


The DETAIL command lets you obtain a secondary listing without 
destroying the uncompleted output from the first listing. UNIQUE 
saves the text of the DETAIL command separately from that of the 
& LIST command. This means that you can go back and forth between 
two different listing operations. You can also enter other UNIQUE 
commands while saving the data from both the LIST and DETAIL 


MORE command commands. The MORE command reinstates the LIST or DETAIL 
processing. 
Example The following example shows a sequence of LIST, DETAIL, and 


MORE commands. The LIST command requests a listing of the 
CUSTOMER records in the SALES file. The first DETAIL command 
requests a listing of the INVOICE records for Able Company, and the 
second DETAIL requests a listing of the INV-ITEM records for invoice 
357005. Because the DETAIL output is complete, you can enter 
either MORE or MORE LIST to reinstate the LIST command: 
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ose SCREEN Ee 





7-60 
open sales list customer 
SWORE LISTO 
° CUST-NAME CUST-ID ADDRESS CITY ST Zip 
PHONE 
ABLE COMPANY 5-48598 2646 CLOVERLY LA MIDDLETOWN PA 19789 
675-887-9595 
ADDLEBY, INC. 5-21543 1519 MEARNS RD HOMETOWN AR 54331 
543-129-1187 
ADHOC, INC. 5-13448 256 HOPEWELL GREENVILLE GA 34687 
236-657-5446 
AMARK HARDWARE 5-60814 29 CATANGA ST CATANGA FL 429786 
625-537-9954 : 
AMWAY VARIETY 5-15574 5348 MARIAN RD SEKONDA Wi 68867 
457-332-5648 
ARROWHEAD LID. §-§5429 8418 BROAD ST BARRINGTON MA 30558 
145-854-6788 
ASTOR HARDWARE 5§-18976 129 MAIN ST ASTOR SC 25995 
323-776-4289 
ATRIUM COMPANY 5-65946 558 FORREST AVE DRINKWATER VA 32584 
278-246-6785 
ATWELL VARIETY 5-32963 1846 DARIEN DR PHILA. PA 19958 
817-236-5579 
B & M HARDWARE 5-48896 1226 SHADY LA ROCKWELL IN 45688 


345-886-7896 








SCREEN 
7-61 









detail invoice for ‘able company 


END DETAIL 


ABLE COMPANY 
* -—NV-NO INV-DATE TOTAL-SALES TAX - AMT INV-GROSS 


-357805 68/15/81 2,599.84 174.88 2,774.64 
-444834 99/18/81 586.17 28.38 688.47 
-455618 16/81/81 1,367.76 65.88 1,432.78 
my SCREEN 
o~ Qa 
. 





detail inv-item for ‘able company’ .357685 
END DETAIL 

ABLE COMPANY 
-357665 

* --NMBR ITEM-CODE DESCRIPTION QUAN UNIT-PRICE TOT-PRICE 
--81 121018 TOOLBOX-CHEST 10DR 6 144.99 869.94 
-- 82 103618 SAW-CIRCULAR 6IN 12 25.56 306.808 
--03 182165 SAW-CHAIN 1418 4 167.99 671.96 
--B4 115668 ORILL-PRESS 721N 1 348.94 348.94 


7-85 136558 DRILL-HAND 7/8HP 6 68.58 411.69 
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SCREEN 


7-63 


CUST - NAME 
PHONE 
BAG 'N SAVE 
356-957-6672 
BALTIC HOUSEWARES 
467-786-6657 
BARBARA'S GREENERY 
817-349-1865 
BARNEGAT LIGHT CO. 
287-944-1376 
BARRINGTON HARDWARE 
689-212-1856 
BARRY'S GARDEN MART 
854-256-7171 
BATTLESON HARDWARE 
785-556-2381 
BELMONT CYCLE 
355-845-7883 
BENSON LAWN CARE 
256-657-7556 
BENTLEY'S VARIETY 


CUST-ID 


4-85794 


5-43875 


4-58856 


4-58613 


5-18998 


4-85437 


5-57556 


4-85854 


4-48676 


4-65944 


ADDRESS 


385 GREENTREE ST 


6548 BALTIC AVE 


9698 GARDEN LANE 


518 CANAL ST 


12.1 FITZWATER ST 


3775 ALLEN RD 


6885 BATTLESON ST 


3598 PARKSIDE AV 


534 JACKSON AV 


81868 VICTORY DR 


CITY 


HAMILTON 


CLAREMONT 


ST. COLLEGE 


BARNEGAT 


BARRINGTON 


ALLENTOWN 


COMMODORE 


ABINGTON 


WARMINSTER 


HAMILTON 


AMORE LISTO 


ST 
MD 
DE 
PA 
MA 
NJ 
PA 
KY 
PA 
RI 


VI 





zip 


56439 


35775 


34688 


25983 


14960 


18494 


66645 


52968 


42955 


62586 
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7.25. DISPLAYING RECORD FORMATS AND COMMAND STATUS 


Function The SHOW command displays: 





a the format of each record and subrecord in the defined file with 
update formats for the items in the record; 


a the most recent LIST and DISPLAY commands; and 


™ any DISPLAY, DELETE, or display format ADD or CHANGE 
command with unprocessed identifiers (requiring a NEXT 
command for processing). 


The format of the SHOW command is: 


Format SHOW 

Record format display In the record format display, UNIQUE gives the name of each record 
and its identifier and item names. Below the identifier and item 

Update formats names, UNIQUE displays update formats, using special symbols to 


show whether a value is required in an ADD command and whether 
the value may be changed in a CHANGE command. These symbols 
and their meanings are listed in Table 7-1. The number of symbols 
in each field indicates the length of the field. 





Table 7-1. Symbols Used in SHOW Command Update Formats 












_ Identifier Value required Change not permitted 


Value required 


Value not required Change not permitted 


Change not permitted 
: Display only 
Value required 


Change permitted 


Value not required Change permitted 
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SALES file example 


INVFILE example 





The following SHOW command for the SALES file illustrates all 
three types of SHOW command output: 


fem SCREEN 
a 








. 
ae 
a END SHOW 
. SALES 
. * CUSTOMER CUST-NAME CUST-1D ADDRESS city 
. PEDPLEEEEEUEEEOGED | AAAAAAA CPELdeeereueretenery ocrepteregag 
es 
o St ZIP 
bhoodbety 
" INVOICE INV-NO INV-DATE TOTAL-SALES TAX-AMT INV-GROSS 
Phd thl AAAAAAAA is Ma bs ee Oa ee. TS SE 
* INV-ILTEM NMBR ITEM-CODE DESCRIPTION QUAN UNIT-PRICE 
Wl AAAAAA AAAAAAARAARAAAAAAAA 11! roti 


TOT-PRICE 
ea Ob ea 
DISPLAY ‘CENTURY HARDWARE’ ,580856,92:; --83 


LIST CUSTOMER 
DETAIL INV-1TEM FOR “ABLE COMPANY’ .357005 


In this example, all of the items with A or ! in the update formats 
require a value before a record can be added to the file. Change is 
permitted in the fields containing ! but not in the A fields. TAX-AMT, 
with asterisks in the update format, does not require a value in order 
to add a record; however, change is permitted. 


The DISPLAY command shown in screen 7-64 is not the original 
DISPLAY command, which contained three identifiers. UNIQUE lists 
only the identifiers not yet processed. The example assumes that the 
NEXT command has not yet been entered to display the second and 


third records requested. 


UNIQUE lists the most recent LIST and DETAIL commands 
regardless of whether their processing is completed. 


Screen 7-65 illustrates a SHOW command for INVFILE, which 
contains one record type, I-REC, and a subrecord, PRODUCT. 
Although you can only access PRODUCT by opening the subfile 
STOCK, UNIQUE displays the subrecord format and characteristics 
as part of the SHOW command output for INVFILE. 


SHOW COMMAND 
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SHOW COMMAND 








SCREEN 
7-65 


open invfile show 






END SHOW 
INVFILE 
* £-REC STOCK-NO CATEGORY DESCRIPTION QTY-ON-HAND 
Lyeeyd AAAAAAAAAAAA SCT tees DD,DDD 
cost PRICE REORDER-POINT ORDER-QTY KILOS GRAMS LOC 
bopthot) obytenaae sete ee cite eee eee nay 
YTD-USAGE 
0D,D00 
* PRODUCT STOCK-NO CATEGORY OESCRIPTION PRICE 
bitin DDDDDDDODDDD DDDDDDDDDDODDDDDDDD 0D.DDD.DD 
QTY-ON-HAND 
D00.D00 


LIST CATEGORY DESCRIPTION PRICE IF PRICE GT 75 AND < 186; COUNT AVG PRICE 
MAX PRICE MIN PRICE TOTAL PRICE 


In this example, the YTD-USAGE item in I-REC is for display only. A 
value is not required in order to add a record, and change is not 
permitted. All of the items in the subrecord PRODUCT are for display 
only, because no updating of PRODUCT is permitted in the data 
definition. ; 


The only command shown in the example is LIST, because no 
DETAIL command was issued for INVFILE and no DISPLAY, DELETE, & 
ADD, or CHANGE commands are active. 





You can also display the format of the PRODUCT record by entering 
a SHOW command for the STOCK subfile: 


SCREEN 
7-66 





open stock show 


END SHOW 
STOCK 
* PRODUCT STOCK-NO CATEGORY DESCRIPTION PRICE 
Perea ODDODDDODODD DDDDDODDDODODDODDODD D,0DD.DD 
QTY-ON-HAND 
00,000 


LIST PRODUCT 
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Capital letters, 
punctuation marks 


Lowercase terms 


A.1. 


Appendix A. Format Presentation and 


Coding Rules 


GENERAL RULES FOR THIS DOCUMENT 


The following rules apply to the presentation of formats in this 
document, the coding of your data definition, and use of UNIQUE. 


Code or enter capital letters, punctuation marks (except braces, 
brackets, and ellipses) exactly as shown. For example, code: 


ALLOW CHANGE 
as: 

ALLOW CHANGE 
Enter: 

OPEN password 
as: 

OPEN SALES 


You must supply all data for lowercase terms. For example, 
enter: 


PARENT tS defined-record-name-2 
as: 


PARENT IS EMPLOYEE 
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Braces 


Brackets 


Ellipsis 


Lowercase and 
reverse print 


For data within braces { }, you must choose one of the entries. @ 
For example, code: 





FROM stored-record-name-1 
FROM REPEATING GROUP data-name-1l 


as: 
FROM EMPLOYEE-REC 
For data within brackets [ ], including commas or semicolons, 
use or omit entries according to program requirements. If you 
include an entry within brackets, you must also choose one of 
the entries within braces. For example, code: 
ALLOW (ADD OF RECORD 

DELETE 

ADD AND DELETE 
as: 


ALLOW ADD OF RECORD 


An ellipsis means a variable number of entries are present. For 
example, enter: @ 


DISPLAY identifier-1 [,identifier-2]... 





as: 
DISPLAY ‘CENTURY HARDWARE’, ‘BARRY''S GARDEN MART’ 


In screen displays, lowercase and reverse print represent 
entries that you make. 
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Uppercase words 


& Lowercase terms 


Delta 


A.2. DATA DEFINITION CODING RULES 


Additional rules that apply to data definition coding are: 


Uppercase words are all reserved words (see Appendix B). 


- You must use underlined uppercase words when you use 
the statements or clauses they are part of. 


- Because uppercase words that aren't underlined are 
optional, you decide whether to code them in the source 
program. 


For example, code: 


TYPE IS literal-1 


as: 

TYPE 1S ‘A’ 
or 

TYPE ‘A’ 


Underlined lowercase terms appearing in figures, such as 
record-description and defined-record-definition, name group 
formats described in separate subsections. 


You must supply all data for lowercase terms that are not 
underlined. 


- Words that you supply can be any sequence of 30 
characters or less, but they cannot be reserved words. Use 
characters from the set A through Z, 0 through 9, and the 
hyphen (-). You cannot use the hyphen as the first or last 
character in a word. 


A delta (A) means a space is present. For example: 


6OL55HUNTER, SHARONAAAAAAAA 
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Literals 


Coding form 


Periods, 
semicolons 


Enclose alphabetic and alphanumeric literals in single quotes to 
distinguish them from your data names. Do not enclose 
numeric literals in quotes, except in the PREFIX and FILL KEY 
clauses. 


Use the standard COBOL coding form to code your data 
definition. As noted in their descriptions, certain statements 
begin in margin A (column 8) of the coding form. Begin all other 
statements in column 12 or beyond, but do not code past 
column 72. 


Follow statements in the identification and data divisions with 
periods. Use semicolons at your option throughout the defined 
file definition; they are ignored by the data definition processor. 

















UP-9209 SPERRY UNIVAC 08/3 B-1 
IMS DATA DEFINITION AND UNIQUE 





Appendix B. Reserved Words 


Table B-1 lists reserved words you must not use for terms that you 
supply in the definition division of the data definition. 


Except for the words DEFINITION and DIVISION, you can use these 
reserved words in the data division. The COBOL reserved word list 
shown in Table B-2 applies to the data division of the data 
definition. 


Table B-1. Reserved Words in the Definition Division 










DBS 





KEY-NAME / SELECTIVE 



















DEFINED MANUAL _ SEMICOLON 





DEFINITION = MUST _ SET 
DELETE _ NEUTRAL _ SUBFILE 


DIVISION _ NEXT-MEMBER- | SUBRECORD 







POINTER 
DMS : _ SUPPLEMENT 
OF 
AS DUPLICATE / | THROUGH 
: _ ONLY 
ASSUME FILE . | THRU 
. | OWNED : 
ASSUMES © FILL To 
: | OWNING : 
BREAK _ FOLLOWS : _ TOTAL 


PARENT 




















BY FROM TYPE 
_ PASSWORD . 
CALC = GROUP : _ UPDATE 
PERIOD . 
CHANGE ' HIDDEN _ USING 
: _ POINTER . 
CONTAINS IDENTIFIER _ VALUE 
_ PREFIX 
CONTROL IN a | VALUES 
_ RECORD : 
CONTROLLED is : VIA 
_ REPEATING - 
CONTROLLING ITEM 7 = WITHIN 
| ROLE : 






COUNT 
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Table B-2. COBOL Reserved Words in the Data Division (Part 1 of 2) & 





















ACCEPT 








DATE-COMPILED 





INSTALLATION 

































































ACCESS DATE-WRITTEN INTO 
ACTUAL DECIMAL-POINT INVALID 
ADD DECLARATIVES is 
ADVANCING DEPENDING JUST 
AFTER DESCENDING JUSTIFIED 
ALL DIRECT KEY 
ALPHABETIC DISC LABEL 
ALTER DISC-n LEADING 
ALTERNATE DISPLAY LEFT 
AND DIVIDE LESS 
APPLY DIVISION LINE 
ARE DOWN LINES 
AREA EBCDIC LINKAGE 
AREAS ELSE LOCK 
ASCENDING END LOW-VALUE 
ASCII » ENDING — LOW-VALUES 
ASSIGN " ENTER » MAP 
AT _ ENTRY _ MASTER-INDEX 
AUTHOR _ ENVIRONMENT - MEMORY 
BEFORE _ EQUAL - MODE 
BEGINNING » EQUALS _ MODULES 
BLANK ERROR _ MONITOR 
BLOCK EVERY _ MORE-LABELS 
BLOCK-COUNT EXAMINE | MOVE 
BLOCK-LENGTH-CHECK EXCEEDS | MULTIPLE 
BUFFER-OFFSET EXHIBIT | MULTIPLY 
BY EXIT = NAMED 
CALL _ EXTENDED | NEGATIVE 
CARD-PUNCH _ EXTENDED-INSERTION = NEXT 
CARD-READER FD _ NO 
CARD-READER-51 _ FILE - NOT 
CARD-READER-66 | FILE-CONTROL _ NOTE 
CHARACTER © FILE-LIMIT | NUMERIC 
CHARACTERS _ FILE-LIMITS © OBJECT-COMPUTER 
CHANGED _ FILE-PREPARATION - OCCURS 
CLOSE | FILLER . OF 
- COBOL | FIRST © OFF 
- COMMA _ FOR - OMITTED 
= FORM-OVERFLOW ON 
_ FROM _ OPEN 
| GENERATE — OPTIONAL 
_ GIVING OR 
_ GO _ ORGANIZATION 
/ COMPUTATIONAL _ GREATER | OTHERWISE 
COMPUTATIONAL-1 HIGH-VALUE _ OUK-n 
| COMPUTATIONAL-2 _ HIGH-VALUES | OUTPUT 
21-0 PERCENT 
_ 1-O-CONTROL . PERFORM 
_ IDENTIFICATION _ PIC 
oF PICTURE 
= IN _ POSITION 
INDEX ' POSITIVE 
INDEXED _ PRINTER 
INDICES _ PROCEDURE a 
INITIATE _ PROCEED 
INPUT | PROCESSING 
INPUT-OUTPUT _ PROGRAM 







INSERT 


» PROGRAM-ID 
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B-3 


Table B-2. COBOL Reserved Words in the Data Division (Part 2 of 2) 


SEGMENT-LIMIT 
SELECT 


SENTENCE 


SEPARATE 
SEQUENTIAL 
SET 

SIGN 

SIZE 

SORT 
SOURCE-COMPUTER 
SPACE 
SPACES 
SPECIAL-NAMES 
STANDARD 
STATUS 

STOP 
SUBTRACT 
SYMBOLIC 
SYNC 
SYNCHRONIZED 
SYSCHAN-n 
SYSCOM 
SYSCONSOLE 
SYSDATE 
SYSERR 
SYSERR-n 
SYSIN 
SYSIN-96 
SYSIN-128 
SYSLOG 
SYSLST 
SYSSWCH 
SYSSWCH-n 
SYSTIME 
TALLY 
TALLYING 
TAPE 


TAPE-6 
TAPES 
TERMINATE 
THAN 
THEN 
THROUGH 
THRU 
TIME 
TIMES 

TO 

TRACE 
TRACKS 
TRAILING 
TRANSFORM 
UNEQUAL 
UNIT 
UNIVAC-n 
UNTIL 

UP 

UPON 
USAGE 
USE 
USING 
VALUE 
VALUES 
VARYING 
VERIFY 
WHEN 
WITH 
WORDS 
WORKING-STORAGE 
WRITE 
ZERO 
ZEROES 
ZEROS 
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140 


159 


160 


Appendix C. Data Definition Processor 


Diagnostics 


The error diagnostics issued by the data definition processor are 
shown in Table C-1. 


Table C-1. Compilation Time Diagnostics Unique to the IMS Data Definition Processor (Part 1 of 2) 


—SUSPEND CHECKING 
INVALID SOURCE 
STATEMENTS ON THIS 
LINE. 









U |—RESUME CHECKING 
SOURCE STATEMENTS 
ON THIS LINE. 










REFERENCE TO insert 
INVALID 


U_— [DEFINITION IS TOO 
LARGE 











The processor does no validity | If preceded by another 
checking for syntax of data diagnostic for the same 
definition source statements | line number, you usually 
until it recognizes some have to recover for that 
succeeding statement. diagnostic only, but the 
remainder of this line 

might contain another 

error. If no other diagnostic 
precedes it, this line 
contains an error that's 
embedded in an unrecognized 
statement type. 


Beginning at this source line, 
the data definition processor 
does not recognize source input 
as data definition language. 

























None required. Before recompiling, 
scan all lines skipped in 

validity checking for possible 
error. 






Error processing continues, 
beginning with this source 
line. 


After issuing diagnostic 139, 
the data definition processor 
again recognizes source input 
as data definition language. 









Self-explanatory Refer to Appendixes A and B | Correct the data detinition 
for the rules for each and recomplile. 





statement. 
The length of the data Block size for the NAMEREC | Reduce size of the data 
definition record exceeds the file specified with the NBLK | definition record and 
block size specified for the keyword parameter of the recompile. The indicated line 
NAMEREC file. iMSCONF jproc or the number caused the overflow. 
BLKSZE parameter of the 
ZPHNRU utility. It ranges Or, specify a larger 


from 1024 to 12,800 bytes block size for the 
but must not exceed disk NAMEREC file and 
track size. reconfigure. 
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Table C-1. Compilation Time Diagnostics Unique to the IMS Data Definition Processor (Part 2 of 2) 


164 


165 


166 


167 U 





CHANGE TO NEUTRAL 
SUPPLEMENT IS 
ILLEGAL. 


CHANGE TO 
CONTROLLING 
SUPPLEMENT IS 
ILLEGAL. 


ADD TO NEUTRAL 
SUPPLEMENT IS 
ILLEGAL. 


ADD TO CONTROLLING 
SUPPLEMENT IS 
ILLEGAL. 


CANNOT ADD OR DELETE 
CONTROL BREAK. 


SEE CONSOLE FOR DMXX 


The processor has encountered 
the ALLOW CHANGE option 
specified for an item in a 
supplement that has no ROLE 
IN UPDATE specified or whose 
ROLE IN UPDATE 

is NEUTRAL. 


The processor has encountered 
the ALLOW CHANGE option 
specified for an item in a 
supplement whose ROLE IN 
UPDATE is CONTROLLING. 


The processor has encountered 
a MUST ADD option specified 
for an item in a supplement 
that has no update role 
specified or whose ROLE IN 


UPDATE is NEUTRAL. 


The processor has encountered 
a MUST ADD option specified 
for an item in a supplement 
whose ROLE IN UPDATE is 
CONTROLLING. 


The processor has encountered 
an ALLOW ADD, ALLOW DELETE, 
or ALLOW ADD AND DELETE 
Clause specified for a 

defined record with a FROM 
CONTROL BREAK clause 
specified. 


The processor has encountered 
an ALLOW ADD, ALLOW DELETE, 
or ALLOW ADD AND DELETE 
clause specified for a 

defined record with a FROM 
REPEATING GROUP clause 
specified. 





OS/3 has issued a numbered 
data management error message 
to the system console, 

reflecting an error detected 
during processing of the 
NAMEREC file by the data 
definition processor. 


Correct the data definition 
and recompile. You may 
also need to revise your 
action program logic. 


If you specify the ALLOW 
CHANGE option for an item, 
the supplement’s ROLE IN 
UPDATE must be 
CONTROLLED. 


Same as 16]. Same as 16]. 


If you specify the MUST ADD |Same as 161. 
option for an item, the 

supplement's ROLE IN 

UPDATE must be 


CONTROLLED. 


Same as 163. Same as 


You cannot specify the Same as 161. 
ALLOW ADD AND DELETE 

clause for a defined 

record with FROM 

CONTROL BREAK 


specified. 


You cannot specify the Same as 161. 
ALLOW ADD AND DELETE 

clause for a defined 

record with FROM 


REPEATING GROUP specified. 


None. The actual OS/3 data 
management message number, 
the prefix of which is “DM”, 
appears at the system console 
and on the console output 
printer (COP} sheet for 

the run. 


According to the nature of 

the error detected or 

reported to data management. 
Refer to the OS/3 system 
messages operator/ proyrammer 
reference 

















UP-9209 


SPERRY UNIVAC 0S/3 D-1 
IMS DATA DEFINITION AND UNIQUE 





Lexicon record 


Defining lexicons 


Appendix D. UNIQUE Lexicon 


The IMS configurator generates a lexicon record when you specify 
UNIQUE=YES or RES in the OPTIONS section. The lexicon record 
consists of the language elements used in UNIQUE commands and 
responses. 


You can define UNIQUE lexicons by including LANGUAGE sections 
in your configurator input. (See the IMS system support functions 
user guide, UP-8364 (current version).) When you omit the 
LANGUAGE section or specify OPEN as the lexicon-id, the 
configurator generates the standard UNIQUE lexicon. 


Tables D-1 through D-6 list the language elements in the standard 
UNIQUE lexicon. 


NOTE: 


You cannot change symbolic terms used in UNIQUE commands. 
You can only change alphabetic terms. 


UP-9209 SPERRY UNIVAC OS/3 D-2 
IMS DATA DEFINITION AND UNIQUE 





Table D-1. UNIQUE Commands 
























OPEN 





Begins a dialog 


CLOSE Terminates a dialog 
DISPLAY Displays a record in a file ; 
DELETE Deletes a record in a file 
OK Finalizes update operation 
CANCEL Cancels current update operation 
ADD Inserts a record into a file 
CHANGE Changes a record in a file 
NEXT Processes the next record, as mentioned in preceding command 
LIST Lists records from a file 
MORE Continues processing previous LIST or DETAIL command output 
DETAIL Performs secondary listing operation 
Displays information about current dialog 


SHOW 





Table D-2. Punctuation Used in UNIQUE Commands 






saiiicelon: Seeaiaiee identifiers and record names. 

Single quote or apostrophe. Delimits names that include special characters. 
- Hyphen. Replaces parent record identifier. 

Comma. Separates parent/child identifiers. Also used in editing numbers. 


( Left parenthesis. Used in arithmetic expressions. 


) Right parenthesis. 
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Table D-3. List Command Keywords 










Restricts output from LIST command 


FROM Specifies records to be listed 
AFTER Specifies records to be listed 
IF Initiates selection criteria in LIST command 
ALL Specifies records to be listed 


Tabie D-4. List Command Logical Operators 














AND 


Intersection operator 
OR Union operator 
NOT Negation operator 
EQ or = Equals operator 
NE Not equals operator 
GT or > Greater-than operator 
GE Greater-than-or-equal-to operator 
LT or< Less-than operator 
LE Less-than-or-equal-to operator 


Table D-5. List Command Statistical Functions 











TOTAL Total operation 
COUNT Count operation 
MAX Maximum operation 
MIN Minimum operation 
AVG Average operation 
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D-4 





Table D-6. Words Used in UNIQUE Status and Error Messages 


ALLOWED 
ARGUMENT 
ARITH. 

BAD 
BOUND 
CANCELED 
CHANGED 
CLOSED 
COMMAND 
COMPLETE 
COMPOSED 
DATA 
DATATYPE 
DEFINED 
DIGIT 

END 

EOM 
ERROR 


EXCEEDS 
EXISTS 
EXPRESS. 
FEW 

FILE 
FOUND 
FUNCTION 
HAS 
IDENT. 
ILLEGAL 
IN 
INCOMPL. 
INPUT 
INVALID 
1/0 

ITEM 
KNOWN 
LATE 


LESS 
LEXICON 
LITERAL 
LOGICAL 
LONG 
LOWER 
MANY 
MESSAGE 
MISSING 
NAME 

NO 
NUMERIC 
OPERAND 
OPERATOR 
PAGE 
PAREN. 
PASSWORD 
RECORD 





RELATION 
REQUEST 
RESPONSE 
SINGLE 
START 
STATIST. 
SUCH 
THAN 
TOO 

TOO BIG 
UNDEFINE 
UNRECOG. 
USAGE 
VALUE 
VERB 
WORD 
ZERO 
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Appendix E. Data Definitions for 


UNIQUE Examples 


Figures E-1 and E-2 show data definitions for the defined files used 
in the UNIQUE examples. 


INT NOo 


ouool 
oa002 


ounus 
ounos 
nocos 
ooco6s 
ooao7 
oucos 
ouco9 
oocio 
00011 
00012 
00C13 
nurs 
coms 
noni 
00017 
00018 
00019 
ouczc 
00921 
00022 
oor23 
oo024 
ooces 
00026 
00027 
Our2s 
ovo29 
00030 
ooc31 
00032 
00033 
00034 
oocss 
00936 
90037 
90036 
oac39 
00040 
oo041 
ooce2 
00043 
ooous 


SEQ, 


IDENTIFI 
PROGRAM- 
DATA OIv 
FILE SEC 
FO INVE 
O1 INVR 
02 
02 
e2 
02 
02 
02 
02 
02 
02 


02 
02 
OEFINITI 
DEFINED 
DEFINED 
ALLO 
IOEN 
ITEM 
ITER 
ITEM 
ITEM 
MUST 
ITEM 
MUST 
ITES 
ITEM 
ITEM 
ITEM 
ITte 
ITEM 
SUBRECOR 
ITER 
ITEM 
ITEM 
ITEM 
SUBFILE 
CONT 





Figure E-1. 


SOURCE STATEMENT 


CATION DIVISIONe 

IDe UNIQUE-te6 

ISIONg 

TIONe 

Lee 
ECe 
STOCK-NO PIC Xl6)e 
CATEGORY PIC X112)6 
DESCRIPTION PIC XC1B de 
QTY-ON-HAND PIC 905) USAGE COMP-36 
cost PIC 9(6)¥99 USAGE COMP-35 
PRICE PIC 9(6)V99 USAGE COMP-39 
REORDER-POINT PIC 915) USAGE COMP-35 
ORODER-QTY PIC 915) USAGE COMP-34 
WETGHTe 
G3 KILOS PIC 9i3hes 
03 GRAMS PIC 943)» 
LOCATION PIC X(4de 

YTO-USAGE PIC 915) USAGE COMP-35 
ON DIVISIONs 

FILE INVFILE PASSWORD 

RECORD I-REC FROM INVREC 

Ww ACO AND DELETE 

TIFIER STOCK-NO 

CATEGORY MUST ADD 

DESCRIPTION ALLOW CHANGE 

QTY-ON-HAND 

COST ALLOW CHANGE VALUE IS “GMLCIeUC* THRU *20U00%U0" 
ado 

PRICE ALLOW CHANGE VALUE IS *GoMuisOU* THRU °30000200° 
aod 

REORGER-POINT ALLOW CHANGE 

ORDER-QTY ALLOW CHANGE 

KILOS ALLOW CHANGE 

GRAMS ALLOW CHANGE 

LOC FROM LOCATION ALLOW CHANGE MUST ADD 
YTO-USAGE 
O PROOUCT 

CATEGORY 

DESCRIPTION 

PRICE 

QTY-ON-HAND 

STOCK PASSWORD 

AINS PRODUCT 


Data Definition for Defined File INVFILE 
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SOURCE STATEMENT 


IDENTIFICATION DIVISION, 
PROGRAM-ID3 UNIQUE-29 
DATA DIVISTONg 
FILE SECTION® 
FO CUSFILE, 
OL CUST-RECe 
O2 CUST=NAME PIC Xt1B)6 
O2 cust-10 PIC Xt7)y 
D2 ADDRESS PIC X(20}% 
(2 CITY PIC X€1l)de 
02 STATE PIC X(2)y 
M2. 2p PIC X(5)y 
C2 PHONE PIC Xt12)06 
INVCFILy 
INVOICE -RECe 
02 CuST-10 PIC X(T)y 
o2 INV-NO PIC xXl6dy 
02 INV-DATE PIC XtB)y 
C2 TOTAL-SALES PIC 9€7}V99 USAGE COMP-3e 
2° TAX -AMT PIC 9(5)¥99 USAGE COMP-36 
O2 INV-GROSS PIC 9CT)V99 USAGE COMP-36 
ITEM-RECe 
02 CuSsT-10 PIC X(7)y 
O2 INV-NO PIC X(6)y 
C2 NMBR PIC Kl2)5 
t2 ITEM-CODE PIC Xl6)y 
C2 DESCRIPTION PIC X(18)6 
f2 QUANTITY PIC 903) USAGE COMP-3e 
02 UNIT-PRICE PIC 9(6)¥99 USAGE COMP-36 
O2 TOT-PRICE PIC 917)¥99 USAGE COMP- 
DEFINITION DIVISION» 
DEFINED FILE SALES PASSWORD 
DEFINED RECORD CUSTOMER FROM CUST=-REC 
ALLOW ADD AND DELETE 
IDENTIFIER CUST-NAME 
ITEM CUST-ID MUST ADO 
ITEM ADDRESS ALLOW CHANGE MUST ADD 
ITEM CITY ALLOW CHANGE MUST ADD 
ITEM ST FROM STATE ALLOW CHANGE MUST AOD 
ITEM ZIP ALLOW CHANGE 
ITEM PHONE ALLOW CHANGE 
DEFINED RECORD INVOICE FROM INVOICE -REC 
ALLOW ADD ANO DELETE 
PARENT IS CUSTOMER 
POINTER IS CUST-ID 
IDENTIFIER INV-NO 
ITEM INV-DATE MUST ADD 
ITEM TOTAL-SALES ALLOW CHANGE MUST ADD 
ITEM TAX-AMT ALLOW CHANGE 
ITEM INV*GROSS ALLOW CHANGE MUST ADD 
DEFINED RECORD INV-ITEM FROM ITEM-REC 
ALLOW ADO AND DELETE 
PARENT IS INVOICE 
IDENTIFIER NMBR 
ITEM ITEM-CODE MUST AOD 
ITEM DESCRIPTION MUST ADD 
ITEM QUANTITY ALLOW CHANGE MUST ADD 
ITEM UNIT=PRICE ALLOW CHANGE MUST ADD 
ITEM TOT=PRICE ALLOW CHANGE MUST ADD 





Figure E-2. Data Definition for Defined File SALES 
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index 
Term Reference Page Term Reference Page 
A | ADD complete message 71 7—15 
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accessing defined files 11 1—2 examples 7.21 7—44 
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defined records 4 4-2 function 7.21 71—43 
listing specific items 7.21 7—44 
ADD command listing whole records 7.21 7—44 
display format 7d J—15 |! with IF and FOR clauses 7.21 7—44 
function 7.10 7—15 
hard-copy format 712 7—20 ALLOW ADD AND DELETE clause 
update state 7.10 7-15 (defined record definition) 
example 3.18 3—33 
ADD command (display format) format 3.18 3—33 
canceling update 711 7—20 purpose 3.18 3—33 
correcting errors 711 I—17 use with MUST ADD option 3.26 3—44 
description Tl 7—15 
example 711 7-16 ALLOW ADD AND DELETE clause 
format 7.11 J—~15 (subrecord definition) 
MUST ADD items 7.11 7—18 example 3.46 3—70 
OK command 7.11 7—~19 format 3.46 3—69 
omitting items 7.11 7—18 purpose 3.46 3—69 
requesting multiple records 7A1 7-15 ; 
transmitting update screen 7.11 7—16 ALLOW CHANGE option 
update format display 7.11 7—~15 (defined record item) 
update validation and error display 7 7—16 example 3.27 3—45 
format 3.27 3—45 
ADD command (hard-copy format) how it's used 3.27 3—45 
canceling update 7.12 7—23 purpose 3.27 3—45 
correcting errors 7.12 7—23 restrictions on use 3.27 3—45 
description 7.12 7—20 
entering values by position 712 7—21 {| ALLOW CHANGE option (subitem) 
examples 7.12 7—21 example 3.51 3—74 
format 7.12 7—20 format 3.51 3—74 
item-name/ positional combination 7.12 7—22 purpose 3.51 3—74 
naming items and values 7.12 7—21 
OK command 7.12 J—23 ALLOW CHANGE option (supplement item) 
output display 7.12 7—21 example 3.40 3—65 
SHOW command 7.12 7—21 format 3.40 3—65 
subformats 7.12 7J—21 ROLE IN UPDATE options 3.35 3—59 
update validation 7.12 7—22 rules 3.40 3—65 
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Term Reference Page Term Reference Page 
ALSO clause (defined record) CLOSE command 
example 3.29 3—47 example 74 7—6 
format 3.29 3—47 format 74 7—5 
purpose 3.29 3—47 function 74 7—5 
UNIQUE dialogs 74 7—6 
ALSO clause (supplement) 
example 3.42 3—66 COBOL item status bytes, 
format 3.42 3—66 data definition output listings 5.4 5—7 
purpose 3.42 3—66 
rules 3.42 3—66 Coding rules 
data definition A.2 A—3 
general document Al A—1 
Column headers display, UNIQUE 3.19 3—34 
Commands (UNIQUE) 
accessing defined files 1.3 1—3 
Cc ADD 7.10 7—15 
CANCEL 79 7—13 
HANGE 7.13 7—24 
CANCEL command Fase 74 7—5 
cancellation message 79 7—13 DELETE 77 Fil 
format 79 I-13 DETAIL 724 7—49 
function 79 7—13 DISPLAY 75 i 
hard-copy terminal requirement 79 7—14 formats : 74 : ae 
identifie , 7.2 7—4 
CHANGE command Her oe 716 7—30 
display format 7.14 7—24 MORE 7.23 7—48 
function 7.13 Fa28 NEXT 76 79 
hard-copy format 7,15 7-27 OK 78 7253 
update state 7.13 7—24 OPEN 73 75 
: rules for entering 71 7—1 
CHANGE command (display format) SHOW 7.25 7—52 
canceling update 7.14 7—27 summary 61 6—1 
description 7,14 7—24 : 
error display 7.14 7—26 ; 7.19 73:97 
aiariple 714 794 Comparison operators : 
format 7.14 7—24 Fe : 
| IF cl 
Ok comma 714 196 eater aa (IF clause) a a 
requesting multiple records 7.14 7-24 simple 719 737 
transmitting update screen 7.14 7—25 : 
update format screen display 7.14 7—24 T | 
update validation 7.14 7—25 on Cae 3.55 3—78 
mpl 3.55 3—78 
CHANGE command (hard-copy format) aa : 3.55. 3—78 
canceling update 7.15 7—29 purpose 3.55 3—78 
correcting errors 7.15 7—29 ; 
description 7.15 7—27 k f 
entering values by position 7.15 7—28 ee ae . 
aes an = example for PARENT clause 3.13 322 
format Ys aN ; a examples for FROM clause 3.11 3—18 
item-name/ positional combination 7.15 7—28 format 311 416 
naming items and values 7.15 7—27 how they work 311 3—17 
OK command 7.15 7—29 figps 311 3—18 
output display 7.15 7—27 © , 
SHOW command 7.15 7—27 
subformats 7.15 7—27 


update validation 7.15 7—28 


Index 3 





UP-9209 SPERRY UNIVAC OS/3 
IMS DATA DEFINITION AND UNIQUE 
Term Reference Page Term Reference Page 
CONTROLLED ROLE IN UPDATE Defined file definition 
example 3.35 3—60 contents 3.6 3—8 
function 3.35 3—60 format Fig 3-4 3-9 
interrelated defined files example 45 4—14 nested structure 3.6 3—8 
restrictions 3.35 3—60 required and optional entries 3.6 3—8 
CONTROLLING ROLE IN UPDATE Defined file name 
example 3.35 3—60 coding rule 3.7 3—10 
format 3.35 3—59 outside references 3.7 3-11 
function 3.35 3—60 
restrictions 3.35 3—60 DEFINED FILE statement 
coding 3.7 3—10 
examples 37 3—11 
format 3.7 3—10 
function 3.7 3—10 
passwords 3.7 3—10 
Defined files 
accessing through UNIQUE 1.3 1—3 
characteristics 1.1 1—1 
creation 1.2 1—2 
hierarchical structure 2.4 2—3 
multiple, example 45 4—14 
naming 3.7 3—10 
simple 24 2—3 
Data definition processor somes 2.1 2—1 
characteristics of 5—1 Suu Ue 2.1 2—2 
diagnostics issued Appendix C vanations 3.93 3—16 
error processin 5.5 5—8 
fe 3 19 | DEFINED RECORD clause 
job control stream 5.1 5—2 coding rule 3.10 3—15 
options 52 52 examples 3.10 3—15 
output listings 5.4 5—7 format 3.10 3—15 
sample job control streams 5.3 5—4 function 3.10 3—15 
Data definition records Defined record definition 
contents 23 2-3 contents 3.8 3—12 
‘ DEFINED RECORD clause 3.10 3—15 
creation and storage 2.3 2—3 
ote format Fig. 3-5 «= 3-12 
Data definitions function 3.8 3—12 
conventions and formats Appendix A item definition 3.19 3—34 
data division 34 3-4 subrecord definition 3.43 3—67 
definition division 35 3—7 supplement definition 3.30 3—48 
elements 1.2 1—2 ; : 
identification division 3.3 3—4 Defined record items 
overall format Fig 3-1 3-3 allowing changes 3.27 3—45 
reserved words Appendix B defining 3.23 3—4l 
sources 3.1 3-1 function 3.19 3—34 
uc ae = Saeathe display oe a 
ing Kat t : — ; _ 
une Soraneta Sneeoer a = previously defined items 3.29 3—47 
ae specifying a required item 3.26 3—44 
eee oa -_ value ranges 3.28 3—46 
Oe a a Defined record management 
record descriptions Fig. 3—2 3-6 characteristics : 14 1—3 
required entries 34 35 constructing defined records 1.4 1—4 
validating updates 14 1—4 
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Term 


DEFINED RECORD statement 
ALLOW ADD AND DELETE clause 
DEFINED RECORD clause 
FILL KEY clause 
FOLLOWS clause 
FROM clause 
function 
PARENT clause 
POINTER clause 
PREFIX clause 
TYPE clause 


Defined records 

accessing according to type 

allowing record additions 
and deletions 

characteristics 

construction 

defining record items 

defining record type 

designating processing order of 
fraternal records 

identifying parent of child records 

identifying sources 

locating source 

locating source of child 
defined record 

naming 

sources 

variations 


Definition division 
contents 
example 


DELETE command 
canceling a deletion 
deleting more than one record 
deleting one record example 
format 
function 
OK command 
update state 


DETAIL command 
description of format specifications 
example 
format 
function 
LIST output saved 
MORE command 


Diagnostics, data definition processor 


Reference Page 

3.18 3—33 
3.10 3-15 
3.17 3—31 
3.16 3—29 
3.11 3—16 
3.9 3-14 
3.13 3—22 
3.15 3—27 
3.14 3—25 
3.12 3—21 
3.17 3—31 
3.18 3—33 
2.2 2—2 

1.4 1—4 

3.19 3—34 
3.12 3—21 
3.14 3—25 
3.13 3—22 
3.11 3—16 
3.16 3—29 
3.15 3—27 
3.10 3-15 
2.2 2—2 

3.43 3—67 
3.5 3—7 

3.5 3—7 

77 7—12 
77 7—12 
7/7 7—11 
7] 7—11 
77 7—11 
77 7—11 
V7 7-11 
7.16 7—30 
7.24 7—A9 
7.24 7—49 
7.24 7—49 
7.24 7—49 
7.24 7—49 
Table C—1 C—1 


Term 


DISPLAY command 
displaying child record 
displaying more than one record 
displaying parent record 
format 
function 
replacing identifiers with hyphens 


DISPLAY COMPLETE message 


DISPLAY-CONTENT-SPECIFICATION 

(LIST command) 
all record types 
ALL specification 
examples 
FOR parameter 
format 
function 
item-names 
multiple record types 
one record type 
opening subfile 
subrecords 


Display format 
ADD command 
CHANGE command 


Error processing 
COBOL rules applied 
diagnostic severity codes 
diagnostics issued 
processor rules applied 
sample outputs 


Reference Page 








75 7-7 
75 7—8 
75 7—7 
75 7-7 | 
75 7-7 
75 71-9 
76 7—10 
7.18 7—35 
7.18 7—36 
7.18 71—32 
7.18 7—36 
7.18 7-31 
7.18 7-31 
7.18 7—32 
7.18 71—33 
7.18 7—33 
7.18 7—36 
7.18 7—36 
7.11 7-15 
7.14 7—24 
Appendix B 

5.5 5—9 
Appendix C 
Appendix A 


Fig 5—4 5-10 
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& Term 


FD statements 


FILL KEY clause 


(defined record definition) 


example 
format 

how they work 
purpose 

when to use 


FILL KEY clause (supplement) 


examples 
format 

how they work 
purpose 


summary of uses 


when to use 


FOLLOWS clause 
example 
format 
function 


® restrictions on use 


FOR clause (LIST command) 
AFTER/FROM clauses 


examples 
format 
function 
IF clause 


listing child records 

listing parent records with 
same child record 

listing records with same 
major identifier 

listing specific items 

listing two record types 


Fraternal records 
example 
PREFIX clause 
VALUE clause 


FROM clause (defined record definition) 


function 


specifying one record as source 
specifying repeating group 


as source 


specifying sequence of records 


as source 


@ FROM clause (supplement definition) 


function 


specifying one record as source 
specifying repeating group as source 
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Reference Page Term 
H 
3.4 3—5 Hard-copy format (UNIQUE commands) 
ADD command 
CANCEL command 
CHANGE command 
3.17 3—32 OK command 
3.17 3—31 
3.17 3—31 HIDDEN option (defined record item) 
3.17 3—31 example 
3.17 3—31 format 
how it’s used 
purpose 
3.34 3—58 
3.34 3—58 HIDDEN option (supplement) 
3.34 3—58 example 
3.34 3—56 format 
Table 3—2 3—57 rules 
3.34 3—57 
Hierarchical defined files 
characteristics 
3.16 3—30 examples 
3.16 3—29 fraternal records 
3.16 3—29 identifiers 
3.16 3—29 parent-child records 


PARENT clause 
POINTER clause 


7.22 7—45 PREFIX clause 
7.20 7—41 vs simple defined files 
7.20 7—40 

7.20 7—40 

7.20 7—40 

7.20 7—41 

Fig 3-6 3—16 

Fig. 3—20 3—39 

7.20 7—42 

7.20 7—4l 

2.4 2—4 

3.14 3—25 

3.22 3—41 

3.11 3—16 

3.11 3—16 

3.11 3—20 

3.11 3—17 

3.32 3—50 

3.32 3—50 

3.32 3—51 


Reference 


7.12 
79 
7:15 
78 


3.25 
3.25 
3.25 
3.25 


3.38 
3.38 
3.38 


2.4 
4.2 
24 
3.19 
24 
3.13 
3.15 
3.14 
3.19 


Page 


7—20 
7-13 
7-27 
7—13 


3—44 
3—43 
3—43 
3—43 


3—64 
363 
363 


2-3 
4—4 
ae 
3—34 
2—4 
3—22 
4-9] 
3—25 
3—36 
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Term 


Identification division 
example 
optional entries 
required entries 


IDENTIFIER clause (defined record) 
example 
format 
function 
multiple identifiers 


IDENTIFIER clause (subrecord) 
example 
format 
purpose 


Identifier items (defined record) 
defining 
function 
hierarchical defined files 
multiple identifiers 
naming 
simple defined files 
value range 


IDENTIFIER statement (defined record) 
format 
IDENTIFIER clause 
VALUE clause 


IF clause (LIST command) 
AFTER/FROM clause 
comparing item with literal 
comparing two record items 
comparison operators 
complex conditional expression 
examples 
FOR clause 
format 
forming value range 
function 
requiring two conditions 
simple conditional expression 


ITEM clause (defined record) 
example 
format 
function 


ITEM clause (subrecord)} 
example 
format 
function 
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Reference Page Term Reference Page 
ITEM clause (supplement) 
example 3.37 3—63 
format 3.37 3—63 
3.3 3—4 rules 3.37 3—63 
3.3 3—4 
3.3 3—4 ITEM definition (defined record) 
format Fig. 3—14  3—34 
function 3.19 3—34 
3.21 3—38 IDENTIFIER statements 3.20 3—37 
3.21 3—38 ITEM statements 3.23 3—41 
3.21 3—38 
3.21 3—38 Item definition (supplement) 
ALLOW CHANGE option 3.40 3—65 
ALSO clause 3.42 3—66 
3.48 3—72 contents 3.36 3—62 
3.48 3—71 format 3.36 3—62 
3.48 3—71 HIDDEN option 3.38 3—63 
ITEM clause 3.37 3—63 
MUST ADD option 3.39 3—64 
3.20 3—37 VALUE clause 3.41 3—65 
3.19 3—34 
3.19 3—36 ITEM statement (defined record) 
3.21 3—38 ALLOW CHANGE option 3.27 3—45 
3.21 3—38 ALSO clause 3.29 3—47 
3.19 3—35 format 3.23 3—41 
3.22 3—40 HIDDEN option 3.25 3—43 
ITEM clause 3.24 3—42 
MUST ADD option 3.26 3—44 
3.20 3—37 VALUE clause 3.28 3—46 
3.21 3—38 
3.22 3—40 Items (defined record) 
allowing changes 3.27 3—45 
defining 3.23 3—41 
7.22 7—45 function 3.19 3—34 
7.19 7—38 naming 3.24 3—42 
7.19 7—38 preventing display 3.25 3—43 
7.19 7-37 previously defined items 3.29 3—47 
7.19 7—39 specifying a required item 3.26 3—44 
7.19 7—38 value range 3.28 3—46 
7.20 7—40 
7.19 7—37 Items (supplement) 
7.19 7—40 allowing changes 3.40 3—65 
7.19 7—37 naming 3.37 3—63 
7.19 7—40 preventing display 3.38 3—63 
7.19 7—37 previously defined items 3.42 3—66 
sources 3.30 3—48 
specifying a required item 3.39 3—64 
3.24 3—42 value range 3.41 3—65 
3,24 3—42 
3.24 3—42 
3.49 3—73 
3.49 3—72 


3.49 3—72 
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@ Term 


Job control stream 
(data definition processor) 
contents 
options 
sample streams 


K 


Katakana characters 
specifying in PARAM option 
using in data definition 


Keywords, list command 


Lexicon (UNIQUE) 
list command keywords 
list command logical operators 
list command statistical functions 
punctuation in UNIQUE commands 
UNIQUE commands 
words in UNIQUE status and 
error messages 


LIST command 
AFTER/FROM clause 
display-content-specification 
FOR clause 
format 
function 
IF clause 
parameters 

@ statistical-function 

unqualified LIST 


Logical operators, list command 


Reference Page Term 


M 
MORE command 
embedded 
9.1 5-1 examples 
5.2 5—2 format 
5.3 5—4 function 
requesting next screen later 
with LIST or DETAIL 
without LIST or DETAIL 
Multiple defined files 
example 
storing in NAMEREC 
MUST ADD option (defined record item) 
example 
format 
how it’s used 
purpose 
52 53 UNIQUE ADD command 
ave MUST ADD option (subitem) 
Table D—-3 D—3 Sens 
format 
purpose 
restrictions 
UNIQUE ADD command 
MUST ADD option (supplement item) 
example 
format 
ROLE IN UPDATE options 
rules 
UNIQUE ADD command 
Table D—3 D—3 
Table D—4 D—3 
Table D—5 D—3 
Table D—2 D—2 
Table D—1 D—2 
Table D—6 D—4 
7.21 7—43 
7.18 7—31 
7.20 7—40 
7.16 7—30 
7.16 7—30 
7.19 7—37 
7.16 7—30 
7.22 7—45 
7.17 7—30 
Table D—4 D—3 





Reference 


7.23 
7.24 
7.23 
7.23 
7.23 
7.23 
7.23 


4.5 
5.1 


3.26 
3.26 
3.26 
3.26 
7.11 


3.50 
3.50 
3.50 
3.50 
7.11 


3.39 
3.39 
3.35 
3.39 
7.11 


Page 


7—48 
7—49 
7—48 
7—48 
7—48 
7—48 
7—48 


3—44 
3—44 
3—44 
3—44 
7—18 


3—73 
3—73 
3—73 
3—73 
7—18 


3—64 
3—64 
3—59 
3—64 
7—18 
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Term Reference Page Term Reference Page & 
N O 
Named record file (NAMEREC) OF clause 
initializing 5.1 5—2 example 3.45 3—69 
purpose 5.1 5—1 format 3.45 3—69 
purpose 3.45 3—69 
NAMEREC utility 
passwords for defined files 3.7 3—10 OK command 
passwords for subfiles 3.54 3—77 completion message 78 7-13 
format 78 7—13 
NEUTRAL ROLL IN UPDATE function 78 7—13 
example 3.35 3—62 hard-copy terminal requirement 78 7—13 
function 3.35 3—61 
Table 3—3 3—60 One record as source of defined record - 
restrictions 3.35 3—62 example 3.11 3—17 
format 3.11 3—16 
NEXT command purpose 3.11 3-17 
CANCEL command 79 7—13 
DISPLAY COMPLETE message 76 7—10 One record as source of supplement 
displaying next record later 7.6 7—10 example 3.32 3—51 
embedded NEXT 76 7-9 format 3.32 3—50 
example 76 7—10 purpose 3.32 3—50 
format 76 7—9 
function 76 7—9 OPEN command 
OK command 78 7—13 defined file passwords 3.7 3—10 
example 73 7—5 
format 73 7—5 
function 73 7—5 
subfile passwords 3.54 3—77 
Output listing 
(data definition processor) 
contents 5.4 5—7 
diagnostic messages 5.5 5—8 
item status bytes 5.4 5—7 
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Term Reference Page Term Reference Page 
P Pointers (supplement) 
example 43 4—10 
: function 3.34 3—57 
PARAM job control statement 
copy library input option 5.2 5—4 how formed 3.33 3—54 
“teen 2 es PREFIX clause 
list option 5.2 53 example 3.14 3—27 
purpose 52 5—2 format 3.14 3—25 
sample job control streams 5.3 5—4 function 3.14 3—25 
source option 52 5A required uses 3.14 3—26 
PARENT clause Punctuation, UNIQUE commands Table D—2 D—2 
example 3.13 3—22 
format 3.13 3—22 
hierarchical relationships 3.13 3—22 
how it’s used 3.13 3—22 
purpose 3.13 3—22 
Parent-child records 
example 2.4 2—4 
extended examples 42 4—4 R 
identifiers 3.19 3—36 
PARENT clause 3.13 3—22 | Record delivery, controlling 3.12 3—21 
POINTER clause 3.15 3—27 
UNIQUE displays 75 7—7 Record-descriptions Fig. 3—2 3-6 
PASSWORD clause Record key (indexed), building 
defined files 3.7 3—10 for supplements 3.33 3—53 
subfiles 3.54 3—76 
Relative record number, building 
Passwords for supplements 3.33 3—54 
NAMEREC utility (defined files) 3.7 3—10 
NAMEREC utility (subfiles) 3.54 3—77 | Repeating groups as sources of 
OPEN command 73 7—5 defined records 
PASSWORD clause (defined files) 3.7 3—10 example for FROM clause 3.11 3—16 
PASSWORD clause (subfiles) 3.54 3—77 example for PARENT clause 3.13 3—22 
UNIQUE 6.2 6—3 extended example for PARENT clause 4.2 4—4 
format 3.11 3—16 
POINTER clause uses 3.11 3—16 
(defined record definition) 
example 3.15 3—28 Repeating groups as sources 
format 3.15 3—28 of supplements 
how they work 3.15 3—28 example 3,32 3—51 
purpose 3.15 3—27 format 3.32 3—50 
purpose 3.32 3—50 
POINTER clause (supplement definition) 
examples 3.33 3—55 Reserved words, data division Table B—2 B—2 
extended example 43 4—10 
format 3.33 3—54 Reserved words, definition division Table B—1 B—1 
in interrelated defined 
files (example) 45 4—14 ROLE IN UPDATE clause 
indexed record key 3.33 3—53 CONTROLLED 3.35 3—61 
purpose 3.33 3—53 CONTROLLING 3.35 3—60 
relative record number 3.33 3—56 format 3.35 3—59 
summary of uses Table 3—2 3—5/7 NEUTRAL 3.35 3—61 
when it's used 3.33 3—53 purpose 3.35 3—59 
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Term Reference Page Term Reference Page 
S Subfiles 
contents 3.53 3—76 
Simple defined files example 44 4—12 
example 41 42 function 3.53 3—76 
identifiers 3.19 3—35 identifying included records 3.55 3—78 
vs hierarchical defined files 3.19 3—36 naming 3.54 3—76 
UNIQUE example 7.18 7—31 
SHOW command Be 
format 7.25 J—52 SUBITEM definition 
function 7.25 7—52 ALLOW CHANGE option 3.51 3—74 
record format display 7.25 7—52 format Fig. 3-27 3—67 
symbols used in examples Table 7—1 7—52 function 3.47 3—70 
update formats 7.25 7—52 IDENTIFIER clause 3.48 3—71 
ITEM clause 3.49 3—72 
S file, ing in PARAM stat : 52 MUST ADD option 3.50 3—73 
ource file, naming in statement 5.2 WARNE Abie a Sue 
Sources of defined records ; 
describing 3.4 3—4 Subitems 
one record as source 3.11 3—16 allowing changes 3.51 3—74 
repeating group as source 3.11 3—20 Halla =o 
ence of d ; a : _ 
sequ of records as source 3.11 3-17 ranamnine Rlestifiers | vis soi 
Sources of supplements specifying a required item 3.50 3-73 
one record as source 3.32 3—50 value range 3.52 3—75 
repeatin Up as sou : 3—51 
pester ae — a 2 SUBRECORD clause 
Statistical-function (LIST command) example 3.44 3—68 
example 7.22 7—46 format 3.44 3—68 
format 7.22 7—45 function 3.44 3—68 
function 7.22 7—45 a 
hierarchical file 7.22 7—4 Subrecord definition 
item-names 722 ae ALLOW ADD AND DELETE clause 3.46 3—69 
statistical functions 7.22 7—45 ali - fs ane 
UNIQUE lexi Table D—5 D— au : oa 
ee an : : purpose 3.43 3—67 
Subfile definition subitem definition 3.47 3—70 
CONTAINS clause 3.55 3—78 SUBRECORD clause 3.44 3—68 
contents 3.53 3—76 
format Fig 3-28 3—7] | Subrecords _ 
purpose 3.53 a6 allowing subrecord additions 
SUBFILE statement 3.54 3—76 and deletions 3.46 3—69 
contents 3.43 3—67 
Subfile name defining subrecord items 3.47 3—70 
coding rules 3.54 3—76 example 4.4 4—12 
itside referen me identifiers 3.43 3—67 
outside references 3.54 3—77 indapandeice on ee 
BFILE stat naming 3.44 3—68 
= Ss anble: o 3.54 3—78 previously defined items 3.45 3—69 
format 3.54 3—76 Subfiles 3.43 3—67 
function 3.54 3—76 UNIQUE example 7.18 7-31 
asswords 3.54 3297 
: SUPPLEMENT clause 
example 3.31 3—49 
format 3.31 3—49 
function 331 3—49 
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@ Term 


Supplement definition 
FILL KEY clause 
format 
FROM clause 
item definition 
POINTER clause 
purpose 
ROLE IN UPDATE clause 
sources of supplement items 
SUPPLEMENT clause 


Supplement items 
allowing changes 
preventing display 
previously defined items 
naming 
sources 
specifying a required item 
value range 


Supplements 

accessing according to type 

defining supplement items 

example 

identifying sources 

@ locating source 

naming 

purpose 

specifying effects of 
defined record changes 


TYPE clause 
controlling record delivery 
example 
format 
purpose 


Reference Page Term 
U 
3.34 3—56 
Fig. 3-22 3-48 | unique 
3.32 3—50 accessing defined files 
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